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PRODUCT CODE: 
PRODUCT NAME: 
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tftWSNT® 



/OS/a BASIC EOITO* 


PAL8-V7 10/24/72 PAGE 1 


1 

i 

3 

4 

5 

a 

7 

a 

9 

10 

11 

12 

13 

14 

15 
U 
17 


/OS/B BASIC EDITOR 
/ 

/DEC-S8-UBASA-A-LA 

/ 

/COPYRIGHT, 1972 
✓ 

/DIGIT At EQUIPMENT CORPORATION 
✓MAYNARD# MASSACHUSETTS 01754 
/ 

✓AUGUST 19, 1972 
✓ 

✓HANK MAURER AND LEN ELEKMAN 
✓ 

✓ 

✓ 

✓ 

0100 VfcRSONa 1 00 




/ns/9 

HASIC I 

fcuITOK 


P A t. ft • v f 

1 i’ / f' 4 / / / 6 A : r 2 



3700 


PCS I 76*3/0/ 

/ bI7t = *F 6 0 0 f , 5 v 

19 


7001 


H C H fc GN b /001 

/ STAkT ^F 6CuMP 

20 


7609 


t N F U s / 6 0. 4 

/ Information ihM ifielo u 

21 


3200 


0Sft*t6«32i£Jvl 

/ SwAP ARfcA FuR OSH 

22 


4000 


DSKtJUP 54000 

/ FILE suffer 

23 


4 9 00 


HANDLES 9 400 

/ Input output handler address 

24 


5000 


T X T A R b A s 5 0 0 0 

/ START Oh TEXT AREA 

25 


0003 


*3 


2b 

00003 

0000 

SwAPTl, 

0 


21 

00004 

0000 

SWAPT2, 

0 



00005 

0000 

S W AP T 3 » 

0 


29 

00006 

0000 

SwAPTa, 

0 


30 

00007 

0100 

VERS, 

VfcRSON 

/VERSION MLJMHpR 

3 1 

00010 

7603 

X10, 

INFO-1 


32 

0001 1 

3266 

xu, 

NAMLST«i 


33 

00012 

0000 

*12, 

0 


3a 

0001 3 

0000 

X13, 

0 


35 

00019 

0000 

X 1 9 # 

0 


36 

00015 

0000 

X 1 5 # 

0 


37 

00016 

0000 

X16, 

0 


3ft 

00017 

0000 

x 1 7 , 

0 


39 


0020 


*20 


90 

00020 

0000 

WDTMP , 

0 

/USED BY INPUT ROUTINt 

ai 

00021 

0000 

RDPTR, 

0 


a? 

00022 

0000 

SIZE# 

0 

/USED BY LINE EDITOR STUFF 

a3 

00023 

0000 

TEMP, 

0 


aa 

0002a 

0000 

TfcMP2, 

0 


as 

00025 

0000 

TOWARD, 

0 


96 

00026 

0000 

PTR , 

0 


a; 

00027 

0000 

NDIGS, 

0 


ae 

00030 

0000 

NCHARS, 

0 


99 

00031 

0000 

coflag, 

0 

/s0 IF CTRL/Q 

50 

00032 

0000 

ChNFlAG 


/ * 1 IF HACK FROM RUN, 0 IF Ol,U 

51 

00033 

0000 

runplag 

,0 

/si IF RUN, 0 IF SAVE 

52 

0003a 

0000 

OL Oft LAG 

, 0 

/si IF INPUT COMING FROM FILE 

53 

00035 

0000 

linenq, 

0/0 

/MOLDS MOST RECENT LINE NUM 

5a 

00036 

0000 




55 

0003 7 

0000 

EOFLIN# 

0;0 

/last line number 

56 

00090 

0000 




57 

00041 

0000 

NAME 

0 7 010/0 

/NAME BUFFER 

5ft 

00092 

0000 




59 

00093 

0000 




60 

00049 

0000 




61 

00095 

0000 

F N A M F , 

0 ; 0 ? 0 ? 0 

/CURRENT FILE NAME 

62 

00046 

0000 




63 

00047 

0000 




6a 

00050 

0000 




65 

00051 

0000 

OfcVHAN, 

0 

/ADDRESS OF DEVICE HANDLER 

66 

00052 

0000 

Ot VNUM , 

0 

/CURRENT DEVICE NUMBER 

67 

00053 

0000 

SwPNl'M, 

0 

/SWAPPER FLAG (FOR T) 

6ft 

0 0054 

760/ 

07607,. 

760/ 


69 

00055 

7 7 00 

07 /{10 , 

7 7 00 


7 0 

00056 

0200 

0200, 

2 O 0 


71 

0 0k5/ 

0201 

1 , 

201 


72 

0 0 0 6 0 

7 76 1 

0 7 7 6 1 , 

7/61 



• • 
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73 

00061 

7/64 

07764, 

/ 764 

74 

00062 

017/ 

0177, 

177 

7$ 

00063 

0232 

0232, 

2 52 

7* 

00064 

7 201 

07201 , 

7201 

77 

00065 

7706 

07706, 

7 706 

78 

00066 

0032 

032, 

32 

79 

00067 

0072 

072, 

72 

80 

00070 

7200 

07200, 

7200 

«1 

00071 

7600 

07600, 

7600 

sa 

00072 

001/ 

017, 

17 

83 

00073 

0260 

0260, 

260 

§4 

00074 

0237 

0237, 

237 

85 

00075 

0013 

013, 

13 

86 

00076 

0215 

0215, 

215 

87 

00077 

0212 

0212, 

212 

88 

00100 

0037 

037, 

37 

89 

00101 

7741 

07741, 

7741 

90 

00102 

7405 

07405, 

7405 

91 

00103 

7701 

07701, 

7701 

95 

00104 

7772 

07772, 

7/72 

93 

00105 

6171 

06171, 

6171 

94 

00106 

6211 

06211, 

6211 

95 

00107 

7770 

07770, 

7770 

96 

00110 

6201 

06201, 

6201 

97 

00111 

0010 

010, 

10 

98 

00112 

7774 

07774, 

7774 

99 

00113 

7 766 

07766, 

7 766 

100 

00114 

7634 

07634, 

7634 

101 

00115 

0137 

0137, 

137 

102 

00116 

7746 

07746, 

7746 

103 

00117 

0036 

036, 

36 

104 

00120 

0077 

077, 

77 

105 

00121 

7 745 

07745, 

7745 

106 

00122 

0012 

012, 

12 

107 

00123 

7771 

07771, 

7 771 

108 

00124 

7400 

07400, 

7400 

109 

00125 

7760 

07760, 

7760 

110 

00126 

0400 

0400, 

400 

111 

00127 

0014 

014, 

14 



/ C'l S / H BASIC EDITOR 


V J 1 V / 2 « / > r 


P A , ► 


1U 


0200 


PAf-t 

1 1 3 

0 0 £00 

p b\ 0 u 

G t T L I N # 

<■ 

114 

00? 01 

502/ 


DC* 

115 

5)0202 

3tf3<3 


DC A 

Mb 

00203 

720*3 

IGNORE , 

CCA 

Ml 

00?04 

457 / 


J MS I 

1 ! H 

00?05 

3024 


DC A 

119 

00206 

714b 


CLL CMA 

1?0 

0 0 ? 0 7 

1024 


TAD 

121 

00210 

7450 


SNA 

122 

0021 1 

5 7 7 7 * 


JMP 

123 

00212 

1113 


TAD 

12 a 

00213 

7450 


SNA 

125 

00214 

5334 


JMP 

12b 

00215 

1107 


TAD 

127 

00216 

7450 


SNA 

126 

002 1 7 

5234 


JMP 

129 

00220 

1104 


TAO 

l 30 

00221 

7450 


SNA 

131 

00222 

5234 


JMP 

132 

00223 

1114 


TAD 

133 

00224 

7450 


SNA 

13a 

00225 

5315 


JMP 

135 

00226 

7001 


I AC 

1 3b 

00227 

7450 


SNA 

137 

00230 

5234 


JMP 

1 38 

00231 

7001 


1AC 

139 

00232 

7440 


SZA 

190 

00233 

5237 


JMP 

1<*1 

00234 

457b 

alt, 

J MS I 

142 

00235 

Ulb 


MSGALT 

143 

00236 

5201 


JMP 

14a 

00237 

1117 


TAO 

145 

00240 

7450 


SNA 

14b 

00241 

5313 


JMP 

147 

002 42 

7100 


cu 

148 

00243 

1120 


TAD 

149 

00244 

7420 


SNL 

150 

00245 

5205 


JMP 

151 

00246 

7001 


I AC 

152 

00247 

3023 


DC A 

153 

00250 

1034 


TAD 

154 

00251 

7b40 


SZA CLA 

155 

00252 

5253 


JMP 

15b 

00253 

1024 


TAD 

157 

00254 

4573 


JMS 1 

158 

00255 

10 30 


TAD 

159 

00256 

7b40 


SZA CL * 

160 

00257 

5264 


JMP 

161 

00260 

1025 


TAD 

162 

00261 

1121 


TAO 

163 

00262 

4574 


JMS I 

164 

00263 

5205 


JMP 

165 

0O264 

10 30 

I S 1 1 x T , 

TAO 

16b 

0O265 

1 102 


TAD 




4 I. f - 


/ f j t- T A llNE FROM 1ft, 

NUIGS /CLEAR Cl^E NuMBEK. 

NCnARS /CLEAR fr.KT COUNT, 

u.tr Cr- 

TEMP? /SAVE ChAk 

RTL /CHECK EG* CONTROL C 

temp? 

BYEBYE /ITS “C EXIT TO OSfe 
u / / *> <S /CHECK FOR CARRIAGE RtTuRU 

CARPET /JUMP IE 016 - CAKPET. 
07770 /CHECK FOR “U 

ALT / THE A T *U AS ALTMODE 

07 7 72 /CHtCK FOR ALTMOOE 

alt /JUMP IE v)33 - ACTMODt. 

07634 /CHECK FOR RUBOUT 

ARROW /TREAT LIKE BACK ARROW 

/CHECK FOR ALTMOOE 

ALT /JUMP IF 176 - ALTMOOE, 


,*U /PRINT IF 1 75 - ALTMOOE. 

[TYPE 

GETLINM 

036 /CHECK FOR BACK ARROW 

ARROW /JUMP IF 137 - BACK ARROW , 
07 7 

IGNORt /JUMP IF NOT PRINTABLE. 

TEMP /SAVE ITCSPs01,"s77,NO 001 
QLDFLAG /INPUT FROM FILE i 

.+3 /YES, DON'T ECHO 

TEMP? 

f T T Y OUT /PRINT ON TTY 
NCm ARS 

ISTEXT /NOT LINE NUMBER. 

TEMP 

07745 /SEE IF ITS A DIGIT 
UNOTG /PUT DIGIT INTO LINE niim 
TGNOW t /GET NF.XT CmAR 
NChARS /PUT CHAR T'm The L X' E . 

0 7a?5 

# 
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167 

00266 

771tf 


SPA 

CLA 


168 

00267 

527« 


JMP 


.+5 

169 

00270 

437 3 


JMS 

I 

(CRLF 

170 

00271 

4b 7b 


JMS 

I 

[TYPE /250 CHARS IS Ok TO FIT 1 MURE. 

IM 

00272 

0571 


MSGTOG 


17a 

00273 

5201 


JMP 


GtTLINM/lH A* EVEN NiuMdEft 

1 7 i 

0027a 

1030 


TAD 


NCHARS /07 CHARS SO FAR 

i?a 

00275 

7110 


cut 

PAR 


175 

00276 

1172 


TAD 


1LINE*2 

176 

00277 

302b 


OCA 


PTR 

177 

00300 

7430 


S ll 



176 

00301 

5307 


JMP 


MIGHTY 

179 

00302 

1023 


TAO 


TEMP /THEM STORE AS T Hfc LEFT 

180 

00303 

7106 


cu 

RTl 

/HALF OF THE WORO, 

181 

0030a 

7006 


*Tl 



iea 

00305 

7006 


RTl 



18 5 

00306 

5312 


JMP 


.♦« 

Ida 

00307 

1426 

MIGHTY , 

TAO 

I 

PTR /ELSE AS THE RIGHT, 

185 

00310 

0055 


AMO 


07700 

186 

00311 

1023 


TAO 


TEMP 

187 

00312 

3426 


OCA 

I 

PTR 

188 

00513 

2030 


ISZ 


NCHARS 

189 

0031a 

5203 


JMP 


IGNORE 

190 

00315 

1034 

ARROW, 

TAO 


OLOF'LAG /INPUT FROM FILE ? 

191 

00516 

7640 


SZA 

CUA 


192 

00317 

5322 


JMP 


.♦3 

193 

00320 

1115 


TAO 


0137 /NO, PRINT SACK ARROW 

19a 

00321 

4573 


JMS 

I 

ITTYOUT 

195 

00322 

7240 


CCA 

CM A 


196 

00323 

1030 


TAO 


NCHARS /IF THERE IS A TEXT CHAR TO ERASE 

197 

0032a 

7510 


SPA 



198 

00325 

5330 


JMP 


.♦3 

199 

00326 

3030 


OCA 


NCHARS /THEN ERASE IT. 

200 

00327 

5203 


JMP 


IGNORE 

501 

00350 

102/ 


TAO 


NOIGS /OTHERWISE, IF THERt IS A LINENC1 

a02 

00351 

7500 


SMA 


/CHARACTER to erase then erase 

203 

00332 

3027 


OCA 


NOIGS /THAT. 

20a 

00333 

5203 


JMP 


IGNORt /OTHERWISE, NEWER MINU. 

205 

00334 

1034 

GARRET, 

TAO 


OLOELAG /INPUT FROM FILE ? 

206 

00335 

7650 


SMA 

CLA 


207 

00336 

4573 


JMS 

I 

tCWLF /NO, PRINT CR-LF 

208 

00337 

1030 


TAD 


NCHARS 

209 

00340 

7440 


•SZA 



210 

00341 

534b 


JMP 


.♦4 /NOT AN EMPTY LINt 

211 

00342 

1027 


TAO 


NOIGS /ANY CHARS AT ALL ? 

212 

00343 

7650 


SNA 

CLA 


213 

00344 

5203 


JMP 


IGNORE /NO, IGNORE EMPTY LINES 

2 1 a 

00345 

7110 


CLL 

RAP 


215 

00346 

1172 


TAG 


[LINE*? 

216 

00347 

3026 


OCA 


PTR 

217 

00350 

74 30 


SZL 



216 

00351 

142b 


TAO 

I 

PTR /STORE 00 (CAR. RET.l LIKE ALL 

219 

00352 

0053 


AnD 


07700 /THE UlHtK CHARACTERS. 

220 

00353 

342o 


DC A 

I 

PTR 

221 

0035a 

4571 


J M S 

T 

[ N 0 R M / in 1) R M A L 1 Z t LINt Nu M "fck 


/OS/d 

222 

223 

22a 

22 b 

226 

257 

856 


BASIC F.LITOk 


0035b 

Sh!*0 

J.12 

1 

00356 

0000 CHLf', 



0035/ 

107(3 

TAD 


00360 

4^73 

JMS 

I 

00361 

1077 

TAD 


00362 

4 57‘j 

JMS 

I 

00363 

S75e> 

JMP 

I 


F*l o-V/ 1 C-/2u//2 PAGt W* 
• 5 LTU\ 

/FPJM C =< -1.1- 

0215 
[TTY OUT 
0212 
cttyout 
OL> 


/os/ 8 BASIC EDITOR 


P £ t R ~ V 7 i v' / c 1 4 / / <r 


P A I , b 4 


229 

00377 

10 7a 







230 


0400 


PAGfc 




231 

00400 

0000 

LND1G, 

0 



/KIT 01b IT INTO 

UN r m»m 

232 

00401 

7100 


til 





233 

00402 

1122 


TAO 


012 



234 

00403 

7430 


szi 





235 

00404 

5210 


JMP 


• ♦4 



2*6 

00405 

7200 


CIA 



/NOT A DIGIT 


237 

00406 

2200 


ISZ 


INUIG 

/RETURN »1 


238 

00407 

5600 


JMP 

I 

INDIG 



239 

00410 

3023 


DC A 


TfcMP 

/SAVE OIGIT 


240 

00411 

202 ! 


ISZ 


NDIGS 



241 

00412 

102 / 


TAO 


NOIGS 



242 

00413 

1 1 23 


TAO 


07 771 



243 

00414 

7500 


SMA 





24a 

00415 

5600 


JMP 

1 

INQIG 

/IGNORE MORE THAN 6 0IG1TS. 

245 

00416 

1221 


TAD 


.♦3 



248 

00417 

3220 


OCA 


• ♦1 

/PUT IN THE NTH 

OIGIT IN THE 

247 

00420 

7402 


HIT 



/« bIT bCO LINE 

number: 

248 

00421 

5230 


JMP 


• ♦7 



249 

00422 

5263 


JMP 


DIG1 



250 

00423 

5253 


JMP 


0XG2 



251 

00424 

5250 


JMP 


0163 



252 

00425 

5242 


JMP 


0164 



253 

00426 

5232 


JMP 


0IG5 



254 

00427 

1036 

DIGb, 

TAO 


UNENO*l/wMtRfc N*6 


255 

00430 

0125 


AND 


07760 



256 

00431 

5240 


JMP 


01G56 



257 

00432 

1023 

0IG5, 

TAO 


TfcMP 

/ WHfcRfc N=5 


258 

00433 

7106 


Cll 

*Tl 




259 

00434 

700b 


«Tl 





260 

00435 

3023 


OCA 


TfcMP 



261 

00436 

1036 


TAD 


IININ0+1 



2 62 

00437 

0124 


ANQ 


07400 



263 

00440 

1023 

DIG56, 

TAO 


TfcMP 



264 

00441 

5246 


JMP 


UIG456 



265 

00442 

1023 

0IG4, 

TAD 


TfcMP 

/WHfcRfc N s 4 


266 

00445 

7110 


Cll 

RAR 




267 

00444 

7012 


R TP 





268 

00445 

7012 


RTR 





269 

00446 

3036 

0IG456, 

OCA 


lINfcNO+1 



270 

00447 

5600 


JMP 

1 

LNDIG 



271 

00450 

1033 

D1G3, 

TAD 


UNtNC 

/ iAjHfcRfc N s 3 


272 

00451 

0123 


AND 


07 760 



273 

00452 

5261 


JMP 


DIG23 



274 

00453 

1023 

0 1 G 2 i 

TAO 


TfcMP 

/wiHfcRl Ni 3 2 


275 

00454 

7106 


CLL 

PTl 




276 

00455 

7 000 


RTl 





277 

00456 

3023 


DC A 


TfcMP 



276 

00457 

1033 


TAO 


LlNtNO 



279 

00460 

0124 


AMD 


0 7 4 0 M 



280 

00461 

1025 

niG23, 

TAO 


Th Mp 



281 

00462 

826/ 


JMP 


DIG 125 



?8P 

00463 

1023 

U 1 G 1 , 

T A t) 


Tt MP 

/rthfcRfc i\=l 


283 

00464 

7110 


Cll 

RAP 





/OS/ 8 

BASIC EOT TO" 


PA 

284 

00465 

7312 


R7P 

?»5 

0046s 

7012 


RTK 

28b 

00467 

3035 

DIG 123, 

DC A 

287 

00470 

5600 


JMP I 

288 

00471 

0000 

type, 

0 

289 

00472 

3347 


DC A 

290 

00473 

1671 


TAD 1 

29 1 

00474 

2271 


ISZ 

292 

00475 

3333 


oca 

293 

00478 

4570 

TLOOP, 

JMS I 

294 

00477 

5321 


JMP 

295 

00500 

1733 


TAD I 

298 

00501 

7112 


CLL RTR 

297 

00502 

7012 


RTR 

298 

00503 

7012 


RTR 

299 

00504 

0120 


AND 

300 

00505 

7450 


SNA 

301 

00508 

5321 


JMP 

302 

00507 

1074 


TAD 

303 

00510 

4325 


JMS 

304 

00511 

1733 


TAD I 

305 

00512 

2333 


ISZ 

308 

00513 

0120 


AND 

307 

00514 

7450 


SNA 

308 

00515 

5321 


JMP 

309 

00518 

1074 


TAD 

310 

00517 

4323 


JMS 

311 

00520 

5276 


JMP 

312 

00521 

1347 

TCRLF, 

TAD 

313 

00522 

7650 


SNA CLA 

314 

00523 

4573 


JMS I 

315 

00524 

5671 


JMP I 

318 

00525 

0000 

TTYOUT, 

0 

317 

00528 

6041 


TSF 

318 

00527 

5326 


JMP 

319 

00530 

6046 


TIS 

320 

00531 

7200 


CL* 

321 

00532 

5725 


JMP I 

322 

00533 

0000 

PASS, 

0 

323 

00534 

2023 


ISZ 

324 

00535 

7410 


SKP 

325 

00538 

4363 


JMS 

328 

00537 

1423 


TAD I 

327 

00540 

0120 


AND 

328 

00641 

7640 


SZA CLA 

329 

00542 

5334 


JMP 

330 

0054 j 

2023 


ISZ 

331 

00544 

5733 


JMP 1 

332 

00545 

4363 


JMS 

3 33 

00546 

57 33 


JMP J 

334 



CRSwIT, 


335 

0054 1 

0030 

FutCR, 

0 

336 

00550 

1023 


TAD 

337 

00551 

7643 


SZA CLA 

3 38 

00552 

Si:;/ 


7 M V* 



Le - v ' \//cuj?s -' f '-' 


L. 1 Nfc f-'C- 

lndig 

/r YPE A MESSAGE 

CRSwIT /SAVE CARRIAGt wE T 1-wM SwITCM 

TYPE /GET ADOR OF MESSAGE 

TYPE 

PASS 

[CTRLQ /CHECK FOR CTRL/O 

TCRLF /YES, STOP PRINTING 

PASS /GET HIGH CHAR 

/SHIFT RIGHT 


077 /SIX BITS 

tcrlf /end of message 

0237 /CONVERT TO ASCII 

TTYOUT /PRINT CHAR 

PASS /GET LOWER CHAR 

PASS 
077 

TCRLF /END OF LINE 

0237 /CONVERT TO ASCII 

TTYOUT /PRINT 

TLOOP 

CRSWIT /RETURN THE CARRIAGE ? 

tCRLF /YES 

TYPE /DONE 

/PRINT ONE CHAR 
/ WAIT 
,-i 

/PRINT 

TTYOUT 

/SKIP OVER LINE 

TEMP 

FINCR 

TEMP 

077 

P ASS* J 

TEMP 

PASS 

FINCR 

PASS 

/OECR. POINTER AND FIELC 

TEMP 

.+‘ 



/OS/8 BASIC fe'OITOW 
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339 

00553 

621“ 


RDF 



340 

00554 

lias 


TAD 


061/1 

341 

00555 

3356 


DC A 



34g 

00556 

7402 


HLT 



343 

00557 

7240 


CIA 

CM A 


344 

00560 

1023 


TAD 


TEMP 

345 

00561 

3023 


DC A 


TEMP 

346 

00562 

5747 


JMP 

I 

FDECR 

347 

00563 

0000 

FINCR, 

0 


/ INCR , CURRENT DATA 

346 

00564 

6214 


RDF 



349 

00565 

1106 


TAD 


06211 

350 

00566 

3367 


DCA 


.♦I 

351 

00567 

7402 


HIT 



352 

00570 

5763 


JMP 

I 

F1NCR 

353 

00571 

5552 

MSGTOOi 

5552 >57467 01 65 1 60607 01 55) 6057 <5000 

354 

00572 

5746 





355 

00573 

0165 





356 

00574 

6060 





357 

00575 

0155 





356 

00576 

6057 





359 

00577 

5000 
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360 


0b00 

PAGE 

361 

00600 

6201 

CMDDQNE , CDF 

362 

00601 

4573 

JMS I 

363 

00602 

4576 

JMS I 

36a 

00603 

1123 

M3GRDY 

365 

00604 

6201 

MAINLUP, CDF 

366 

00605 

456 7 

JMS X 

367 

00606 

7650 

SNA CL A 

368 

00607 

5 2 1 a* 

JMP 

369 

00610 

1034 

TAD 

370 

00611 

7650 

SNA CLA 

371 

00612 

5566 

JMP I 

372 

00613 

5204 

JMP 

373 

00614 

1026 

NOCOMD , TAD 

37a 

00615 

7040 

CMA 

375 

00616 

1165 

TAD 

376 

00617 

3022 

DC A 

377 

00620 

1S72 

TAD I 

378 

00621 

7650 

SNA CLA 

379 

00622 

3022 

DC A 

380 

00623 

1035 

TAD 

381 

00624 

7141 

CIA CLl 

382 

00625 

1037 

TAD 

383 

00626 

7640 

SZA CLA 

384 

00627 

5233 

JMP 

385 

00630 

1036 

TAD 

386 

00631 

7141 

CIA CLL 

387 

00632 

1040 

TAD 

388 

00633 

7630 

SZL CLA 

389 

00634 

5245 

JMP 

390 

00635 

4564 

JMS I 

391 

00636 

1023 

TAD 

392 

00637 

3026 

DCA 

393 

00640 

1035 

TAD 

394 

00641 

3037 

DCA 

395 

00642 

1036 

TAD 

396 

00643 

3040 

DCA 

397 

00644 

7410 

SKP 

398 

00645 

4563 

NOTLAST, JMS I 

399 

00646 

1023 

INSERT, TAD 

400 

00647 

7140 

CLL CMA 

401 

00650 

1026 

TAD 

402 

00651 

7200 

CLA 

403 

00652 

6214 

RDF 

404 

00653 

7430 

SZL 

405 

00654 

1107 

TAD 

406 

00655 

1110 

TAD 

407 

00656 

3346 

DCA 

408 

00657 

1026 

TAD 

409 

00660 

7141 

CLL CIA 

410 

00661 

1023 

TAD 

411 

00662 

1022 

TAD 

412 

00663 

7450 

SNA 

413 

00664 

5331 

JMP 

414 

00665 

7510 

SPA 


tCWLF /TYPE RE AO Y MfcSSA&F 
1 TYPE 


[GETL1N /GET AN EDITED LINE. 

NOCOMD /NOT A COMMAND 
QLDFLAG /IN OLD MODE ? 

[COMM AND/NO , MUST BE A COMMANO 
MAINLUP /OTHERWISE IGNORE 
PTR /OR A LINE WITH A LINE 

/NUMBER ON IT. 

CLINE 

SIZE /SET UP SIZE OF LINE. 

ILINE*2 /IS LINE EMPTY ?? 

SIZE /POSSIBLY ZERO, 

IINENQ /IS IT > LAST LINE ? 

EOFLIN 

, +4 /HI PART NOT *, FORGET LOW 

L1NENO+1 

EOFLIN+1 /COMPARE LOW PARTS 

NOTLAST /NOT > LAST 

CGETEOF /GET EOF 

TEMP /MAKE IT LOOK LIKE 

PTR /A CALL TO FINOLN 

LINENO /SAVE NEW LAST LINE 

EOFLIN 

LINENQ+1 

EOFLIN+1 

[FINOLN /GENERAL CASE - SEARCH 
TEMP /THERE ARE CTEMP-PTR) WORDS IN 
/THE OLD LINE WHICH ARE TO BE 
PTR /REPLACEO BY (-SIZE) WORDS IN 

/NEW LINE, 


07770 

06201 

PTRFLD 

/GET FIELD OF START 

OF OLD LINE 

PTR 



TEMP 

SIZE 

/WHICH WAY 7 


MOVE 

/SAME SIZE, MOVE IN 

NEW LINE 


/OS/a BASIC EDITOR 




41$ 

00888 

577 7 * 


JMP 


EXPAND 

/make MORE ROOM FOR NEW L I N t 

4 l 8 

00887 

7041 


CIA 




417 

00870 

1023 


TAD 


TEMP 

/SHRINK THE FILE 

418 

00871 

302* 


DC A 


TOWARD 

/MOVE FILE DOwN TO HERE 

419 

00872 

6214 


RDF 




420 

00873 

1110 


TAD 


08201 


421 

00874 

3304 


DCA 


TMPFLD 

/GET FIELD OF READ POINTER 

422 

00875 

1025 


TAD 


TOWARD 


423 

00878 

7140 


CLL 

CM A 



424 

00877 

1023 


TAD 


TEMP 


425 

00700 

7620 


SNL 

CIA 



428 

00701 

1107 


TAD 


07770 


427 

00702 

1304 


TAD 


TMPFLD 


428 

00703 

3306 


DCA 


TWDFLD 

/GET FIELD OF WRITE POINTER 

429 

00704 

7402 

TMPFLD, 

HIT 




430 

00705 

1423 


TAD 

I 

TEMP 


431 

00708 

7402 

twdfld, 

HLT 




432 

00707 

3425 


DCA 

I 

TOWARD 

/move down 

433 

00710 

1425 


TAD 

I 

TOWARD 


434 

00711 

1103 


TAD 


07701 

/END OF FILE ??? 

435 

00712 

7650 


SNA 

CLA 



438 

00713 

5327 


JMP 


LWREOF 

/YES', PUT NEW LINE IN AT END 

437 

00714 

2023 


ISZ 


TEMP 

/INCREMENT POINTERS 

438 

00715 

5321 


JMP 


• ♦4 


439 

00718 

1304 


TAD 


TMPFLD 

/AND FIELDS IF NECESSARY 

440 

00717 

1111 


TAD 


010 


441 

00720 

3304 


DCA 


TMPFLD 


442 

00721 

2025 


ISZ 


TOWARD 


443 

00722 

530« 


JMP 


TMPFLD 

- 

444 

00723 

1306 


TAO 


twdfld 


445 

00724 

HU 


TAD 


010 


448 

00725 

3306 


DCA 


twdfld 


447 

00728 

5304 


JMP 


TMPFLD 

/KEEP SHRINKING 

448 

00727 

1025 

LWREOF , 

TAO 


TOWARD 

/SET NEW EOF 

449 

00730 

4562 


JMS 

I 

C5ETE0F 


450 

00731 

1022 

MOVE, 

TAD 


SIZE 


451 

00732 

7650 

- 

SNA 

CLA 



452 

00733 

5204 


JMP 


MAINLUP 

/IT WAS A DELETE 

453 

00734 

6201 


CDF 

00 



454 

00735 

1035 


TAD 


LINENO 

/PUT IN LINE NUMBER 

455 

00738 

3565 


DCA 

I 

CLINE 


458 

00737 

1036 


TAD 


LINEN 0*1 


457 

00740 

3561 


DCA 

I 

CLINEM 


458 

00741 

1165 

MOVENTR 

, TAD 


CLINE 


459 

00742 

3023 


DCA 


TEMP 


480 

00743 

6201 

MOVLUP, 

COF 



/MOVE IN NEW LINE 

481 

00744 

1423 


TAD 

I 

TEMP 


482 

00745 

2023 


ISZ 


TEMP 


483 

00748 

7402 

ptrfld, 

HLT 




484 

00747 

3426 


OCA 

I 

PTR 


485 

00750 

2026 


ISZ 


PTR 

/INCREMENT POINTERS 

488 

00751 

5355 


JMP 


• +4 


487 

00752 

1346 


TAD 


PTRFLD 

/WHATCH OUT FOR FIELDS 

488 

00753 

1111 


TAD 


010 

/(W f C, OR E * M , ?) 

489 

00754 

3346 


DCA 


ptrfld 



/OS/B BASIC EDI TOW 


piua-w <i* pajE 


a/p 

00755 

202«2 

IS2 

Size: 

a 7 1 

00/56 

5 343 

• IMP 

MOVLUP 

alt 

00 7 57 

5804 

JMP 

MAINUJP 




/OS/8 

BASIC EDITOK 




A L a V 7 | 

iy/34/73 HA.,t t- 

473 

00777 

100k) 






474 


1000 


P Afc t 



475 

01000 

7041 

EXPANU , 

CIA 



/EXTRA ROOM NEEDED 

478 

01001 

308b 


DC A 


TOWARD 


477 

01002 

1433 


TAD 

I 

TfcMP 

/SAVE THIS PLACE 

478 

01003 

3034 


DCA 


TEMP2 


479 

01004 

1100 


TAD 


037 

/NOW MARK THIS PLACE 

480 

01005 

3433 


DCA 

I 

TEMP 


481 

01008 

4564 


JMS 

I 

CGETEOF 

/GET EOF 

482 

01007 

631<* 


RDF 




483 

01010 

1110 


TAD 


08201 


484 

01011 

3337 


DCA 


TMP2FLQ 

/GET FIELO OF END OF FILE 

485 

01012 

7100 


CLL 




488 

01013 

1033 


TAD 


TEMP 

/MOVE FILE UP 

487 

01014 

103b 


TAD 


TOWARD 

/TO 

488 

01015 

303b 


OCA 


TOWARD 

/HERE 

489 

01018 

7430 


szl 




490 

01017 

4560 


JMS 

I 

[FINCR 

/MIGHT BE ACROSS A FIELD 

491 

01020 

3435 


DCA 

I 

TOWARD 


492 

01021 

143b 


TAD 

I 

TOWARD 

/IS THERE -ENOUGH CORE ? 

493 

0102 2 

7640 


SZA 

CLA 



494 

01023 

5373 


JMP 


COREOV 

/NO, GIVE ERROR 

495 

01024 

7340 


CIA 

CMA 



498 

01025 

3435 


DCA 

I 

TOWARD 


497 

01028 

143b 


TAD 

I 

toward 


498 

01027 

7001 


I AC 




499 

01030 

7640 


SZA 

CLA 



500 

01031 

5373 


JMP 


COREOV 

/NO, GIVE ERROR 

501 

01032 

6314 


RDF 




502 

01033 

1110 


TAD 


08201 


503 

01034 

3341 


OCA 


TW02FLD 

/SAVE NEW EOF FIELO 

504 

01035 

103b 


TAD 


TOWARD 

/SAVE NEW EOF 

505 

01038 

4563 


JMS 

I 

CSETEOF 


508 

01037 

7403 

TMP3FL0 

,HIT 




507 

01040 

1433 


TAD 

I 

TEMP 


508 

01041 

7403 

TW03FL0 

i HUT 




50* 

01042 

3435 


DCA 

I 

TOWARD 

/MOVE UP ORE WORO 

510 

01043 

1435 


TAD 

I 

TOWARD 


511 

01044 

1101 

^TAD 


07741 

/IS THE MARK ? 

512 

01045 

7650 


SNA 

CLA 



513 

01048 

5370 


JMP 


LASTWO 

/YES, PUT IN LAST WORD 

514 

01047 

7340 


CLA 

CLL 

CMA 


515 

01050 

1035 


TAD 


TOWARD 

/HACK UP POINTERS 

518 

01051 

3035 


DCA 


TOWARD 


517 

01052 

7430 


szl 




518 

01053 

5357 


JMP 


.♦4 


519 

01054 

1341 


TAD 


TWD2FL0 

/AND FIELDS (MAYBE) 

520 

01055 

1107 


TAD 


07770 


521 

01058 

3341 


DCA 


TWD2FL0 


522 

01057 

7340 


cl a 

CLL 

CMA 


523 

01080 

1033 


TAD 


TEMP 


524 

01081 

3033 


OCA 


TEMP 


525 

01082 

7430 


SZL 




528 

01083 

5337 


JMP 


TMP2FL0 


527 

01084 

133 7 


TAD 


TMP2FLD 
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528 

01065 

1107 


TAD 

07770 


529 

01066 

3237 


DC A 

TMP2FL0 


530 

01067 

523 7 


JMP 

TMP2FL0 


531 

01070 

1024 

IASTWO, 

TAD 

TEMP? 

/PUT IN SAVED WORD 

532 

01071 

3425 


OCA I 

TOWARD 


533 

01072 

5557 


JMP I 

(MOVE 

/GO MOVE IN NEW LINE 

53a 

01073 

4576 

CORED V , 

JMS I 

[TYPE 

/FILE TOO BIG 

535 

01074 

1105 


MSGBIG 


_ tobc/ u 3 

536 

537 

01075 

01076 

5556 

7201 

byebye, 

JMP I 
CIA I AC 

IMAINUIP 



538 

01077 

0053 


AND 

SWPNUM 

/IS OSB RE5 IN PLACE ? 

539 

01100 

7640 


SZA CLA 


/YES IF EVEN NUMBER OF SWAPS 

540 

01101 

4555 

bye, 

JMS I 

[SWAP 

/PUT BACK 0S8 

541 

01102 

6041 


TSF 


/WAIT FOR TTY SO OSB DOESN'T 

542 

01103 

5302 


JMP 

• •1 

/trample on my line FEED 

543 

01104 

5777 " 


JMP 

T605 

/EXIT TO OSB 

544 

01105 

4442 

MSGBIG, 

44421 5T 101 6501 14T521 651 61 52501 5760 16346; <1500 

545 

01106 

5710 





546 

01107 

6501 





547 

01110 

4752 





548 

01111 

6516 





549 

01112 

5250 





550 

01113 

5760 





551 

01114 

6346 





552 

01115 

4500 





553 

01116 

0145 

msgalt, 

014514655146651464510 

554 

01117 

4655 





555 

01120 

4665 





556 

01121 

a645 





557 

01122 

0000 





558 

01123 

6346 

MSGRDY, 

6346J4245J7200 


559 

01124 

4245 





560 

01125 

7200 





561 

01126 

7051 

MSGWHAT 

,70511426514000 


562 

01127 

4265 





563 

01130 

4000 





564 

01131 

1154 

SCRATCH 

i T AD 

[TXT AREA/SCRATCH FILE 

565 

01132 

4562 


JMS I 

ESETEQF 


566 

01133 

3037 


DC A 

eqflin 

/ZERO LAST LINE NUM 

567 

01134 

3040 


DC A 

EOFLINM 


568 

01135 

5553 


JMP I 

[CMDDONE 

569 

01136 

0000 

NORM, 

0 


/LINE NUMBER NORMALIZER 

570 

01137 

1027 


TAD 

NDIGS 


5 71 

01140 

7440 


SZA 



572 

01141 

5344 


JMP 

• + 3 

/IF THERE ARE NO DIGITS IN THE 

573 

01142 

7240 


CLA CMA 


/LINE NUMBER THEN 

574 

01143 

5736 


JMP I 

NORM 

/RETURN -1. 

575 

01144 

1104 


TAD 

07772 


576 

01145 

7700 


SMA CLA 



577 

01146 

5736 


JMP I 

NORM 

/IF THE LINENO HAS BEEN FILLED 

578 

01147 

1112 


TAD 

07774 

/OUT TO 6 DIGITSCLEAOINU 0'S1 

579 

01150 

3023 


DC A 

TEMP 

/THEN RETURN. 

580 

01151 

1035 


TAD 

LINENO 

/OTHERWISE, SHIFT RIGHT 1 DIGIT 

581 

01152 

7110 


CLL PAR 



582 

01153 

3035 


DC A 

LINENQ 

/AND CHECK AGAIN, 
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/OS/6 

BASIC 

EOITOK 

563 

01154 

103b 

58a 

01155 

7010 

585 

01156 

303b 

566 

01157 

3023 

587 

01160 

5351 

588 

01161 

2027 

589 

0116a 

5337 


TAO 

RAR 

LINENOM 

DC A 

LINENDM 

ISZ 

TEMP 

JMP 

.-7 

ISZ 

NDIGS 

JMP 

NQRM+1 


/OS/3 

BASIC EDITOR 


PA 
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590 

0117/ 

760b 





59 i 


1200 


PAGE 



59g 

01200 

1220 

command 

, TAD 

COMTBL 

/COMMAND LIST PulNTfcR 

593 

01201 

3 023 


DC A 

TEMP 


59 a 

01202 

2023 

COMLUP, 

ISZ 

TEMP 

/GtT 2 CHAR CQMi AND 

595 

01203 

1423 


TAD I 

TEMP 


596 

01204 

2023 


ISZ 

TEMP 


597 

01205 

7450 


SNA 



596 

01206 

521b 


JMP 

WHAT 

/END OF LIST 

599 

01207 

1572 


TAD I 

CLINE+2 

/IS THIS IT ? 

600 

01210 

764(9 


SZA CIA 



601 

01211 

5202 


JMP 

COMLUP 

/NO, LOOK AGAIN 

60a 

01212 

1425 


TAD I 

TEMP 

/GET COMMAND AOOR 

603 

01213 

3023 


DC A 

TEMP 

/AND GO TO IT 

604 

01214 

5423 


JMP I 

TEMP 


605 

01215 

4576 

WHAT, 

JMS I 

(TYPE 

/TYPE WHAT? 

606 

01216 

1126 


msgwhat 



607 

01217 

5556 


JMP I 

CMAINLUP 

60S 

01220 

122(9 

CQMTBL, 

n 



609 

01221 

2226 


-5552 



610 

01222 

1 4013 


LIST 



611 

01223 

1723 


-6055 



612 

01224 

272b 


OLD 



613 

01225 

1336 


-6442 



614 

01226 

2223 


SAVE 



615 

01227 

1412 


-6366 



616 

01230 

2200 


RUN 



617 

01231 

1334 


-6444 



618 

01232 

1131 


SCRATCH 



619 

01233 

3406 


-4372 



620 

01234 

1101 


bye 



621 

01235 

2032 


-5746 



622 

01236 

1763 


NEW 



623 

01237 

2036 


-5742 



624 

01240 

1754 


RENAME 



625 

01241 

0000 


0 



626 

01242 

014b 

WSSAVE, 

01 451 6454; 33437 4264 ;5244l 177016400 

627 

01243 

6454 





628 

01244 

3343 





629 

01245 

4264 





630 

01246 

5244 





631 

01247 

1770 





632 

01250 

6400 





633 

01251 

0000 

HEADING 



/PRINT HEADING 

634 

01252 

4573 


JMS I 

tCRLF 

/later 

635 

01253 

1152 


TAD 

IF NAME 

/SET UP FOR CONVERSION 

636 

01254 

3023 


DC A 

TEMP 

/POINTER TO FILE NAME 

637 

01255 

126b 


TAD 

XTITLE 

/WHERE IT GOES 

638 

01256 

3026 


OCA 

PTR 


639 

01257 

4270 


JMS 

CON V 

/OUTPUT FIRST TWO CHARS 

640 

01260 

4270 


JMS 

CON V 

/NEXT TWO 

641 

01261 

4270 


JMS 

CQNV 

/THIRD TWO 

642 

01262 

2026 


ISZ 

PTR 

/SKIP FOR EXT 

643 

01263 

4270 


JMS 

CON V 

/OUTPUT EXTENSION 

644 

01264 

457b 


JMS I 

[TYPE 

/TYPE HEADING 


/OS/8 BASIC EDITOR 
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645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 
661 
662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 
681 
682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 


01265 

1312 

XTITLE, 

TITLE 




01266 

4573 


JMS I 

CCRLF 

/FOLLOWEO BY A CRLF 


01267 

5651 


JMP I 

HEADING 



01270 

0000 

CON V , 

0 


/CONVERT TO SIX BIT 

ASCII 

01271 

1 #23 


TAD I 

TEMP 

/GET NEXT rtORD 


01272 

0120 


AND 

077 

/CHECK FOR 0 


01273 

7450 


SNA 


/SUBSTITUTE BLANKS 


01274 

1377 


TAD 

(40 



01275 

1101 


TAD 

07741 

/SUBTRACT 37 


01276 

0120 


AND 

077 

/SIX BITS 


01277 

3426 


OCA I 

RTR 



01300 

1423 


TAO I 

TEMP 

/DO UPPER CHAR 


01301 

0055 


AND 

07700 



01302 

7450 


SNA 




01303 

7130 


CLL CML 

RAR 



01304 

1376 


TAD 

(*3700 

/SAME WAY 


01305 

1426 


TAD I 

PTR 

/COMBINE THEM 


01306 

3426 


DCA I 

PTR 



01307 

2023 


I5Z 

TEMP 



01310 

2026 


ISZ 

PTR 



01311 

5670 


JMP I 

CONV 



01312 

0000 

TITLE, 

010101010110 

/FOR THE PROG NAME 


01313 

0000 






01314 

0000 






01315 

0101 






01316 

0000 






01317 

0101 


010110101 

/SOME BLANKS 


01320 

0101 






01321 

2217 


VERSQNS700*21 1 7 

/VERSION NUMBER X.Y 


01322 

2101 


VERSON* 

104700*2101 


01323 

0101 


010110101 

/MORE BLANKS 


01324 

0101 






01325 

0000 

OATE, 

010101 163010 

/DATE 


01326 

0000 






01327 

0000 






01330 

1630 






01331 

00-04) 






01532 

0000 

GETNC, 

0 


/GET A CHAR FOR A FILE NAME 

01333 

1030 


TAD 

NCHARS 

/GET CHAR POINTER 


01334 

2030 


ISZ 

NCHARS 

/BUMP IT 


01335 

7110 


CLL PAR 


/DIVIOE BY 2 


01336 

1172 


TAD 

(LINE + 2 

/ AO0 BASE 


01337 

3023 


DCA 

TEMP 

/GIVES AODR OF WORD 


01340 

1423 


TAD I 

TEMP 

/GET 2 CHARS 


01341 

7430 


SZL 


/ODD EVEN BIT IS IN 

link 

01342 

5346 


JMP 

TESTCH 

/GO CHECK THE CHAR 


01343 

7012 


RTR 




01344 

7012 


RTR 




01345 

7012 


RTR 




01346 

0120 

TESTCH, 

AND 

077 

/ONLY 6 BITS 


01347 

7450 


SNA 




01350 

5732 


JMP I 

GETNC 

/END OF NAME 


01351 

1060 


TAD 

07761 

/WAS IT . ?? 


01352 

7440 


SZA 




01353 

5361 


JMP 

NOEXT 

/NO 



/OS/8 BASIC ED I -TO* 


PA|_8«/7 10/£>u/7<? PAGE I--? 


im 

0135a 

7240 

CIA 

CM A 


/SET SIZE TO -1 

701 

01555 

3022 

DC A 


SIZE 


70S 

0135b 

1151 

TAD 


(NAME+3 

/SET POINTER TO EXT WORD 

703 

0135/ 

3024 

DC A 


TEMP2 


70a 

01360 

57 7 5 * 

JMP 


NAMLUP 

/START ON EVEN CHAR 

705 

01361 

1061 NOEXT, 

TAD 


07/64 

/IS IT : ?? 

706 

01362 

7440 

SZ A 




707 

01363 

536b 

JMP 


• *3 


708 

01364 

7201 

CIA 

I AC 


/YES, RETURN NONZERO 

709 

01365 

5732 

JMP 

I 

GETNC 


710 

01366 

106/ 

TAD 


072 

/RESTORE THE CHAR TO 

711 

01367 

0120 

AND 


077 

/STRIPPED SIX BIT 

712 

01370 

2332 

ISZ 


GETNC 


713 

01371 

5732 

JMP 

I 

GETNC 
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714 

01375 

1736 





715 

01376 

41 00 





716 

01377 

004k) 





717 


1400 


PAGE 



718 

01400 

1550 

LIST, 

TAD I 

CLINE+3 

/LISTNH ? 

719 

01401 

1547 


7 AO I 

CLINE+4 


720 

01402 

1377 


TAO 

(*4436 

/PSEUDO TEST 

721 

01403 

7650 


SNA CLA 



722 

01404 

5211 


JMP 

LISTNH 

/NO HEADING 

723 

01405 

4546 


JMS I 

(HEAOING/GIVE HEADING 

724 

01406 

1031 


TAO 

COFLAG 

/WAS CTRL/O TYPED ? 

725 

01407 

7650 


SNA CIA 



726 

01410 

5553 


JMP I 

(CMODONE/VES, ABORT LISTING 

727 

01411 

3030 

LISTNH, 

OCA 

NCHARS 

/SET POINTER 

726 

01412 

3027 


OCA 

NOIGS 

/AND DIGIT COUNTER 

729 

01413 

4545 


JMS I 

[GETNC 

/SKIP UNTIL BLANK 

730 

01414 

5225 


JMP 

NUMDUN 

/DONE 

731 

01415 

1376 


TAD 

C-40 


732 

01416 

7640 


3ZA CIA 



733 

01417 

5213 


JMP 

.-4 

/NO BLANK VET 

734 

01420 

4545 


JMS I 

[GETNC 

/GET A CHAR 

735 

01421 

5225 


JMP 

NUMDUN 

/END OF NUMBER 

736 

01422 

1065 


TAO 

07706 

/SUBTRACT 72 

737 

01423 

4574 


JMS I 

[LNDIG 

/GO SEE IF ITS A DIGIT 

738 

01424 

5220 


JMP 

• -4 

/IT WAS, CONTINUE 

739 

01425 

1154 

numdun, 

TAD 

(TXT AREA 

740 

01426 

3026 


OCA 

PTR 

/SET UP POINTER 

741 

01427 

4571 


JMS I 

[NORM 

/NORMALIZE THE NUM 

742 

01430 

7700 


SMA CLA 


/any number ? 

743 

01431 

4563 


JMS I 

CFINDLN 

/YES, LOCATE IT 

744 

01432 

6214 


RDF 


/GET THE FIELD 

745 

01433 

1110 


TAD 

06201 


746 

01434 

3267 


OCA 

PTR2FLD 

/SAVE IT 

747 

01435 

3023 


OCA 

TEMP 


748 

01436 

4570 

LSTIUP, 

JMS I 

CCTRLO 

/check for ctrl/o 

749 

01437 

5553 


JMP I 

icmdoone/ves, exit 

750 

01440 

4244 


JMS 

GETFIL 

/GET CHARACTER TO LIST 

751 

01441 

5553 


JMP I 

tCMDDONE 

752 

01442 

4575 


JMS I 

tTTYOUT 

/PRINT IT 

753 

01443 

5236 


JMP 

LSTLUP 

/LOOP 

754 

01444 

0000 

getfil, 

0 


/GET CHARACTER FROM FILE 

755 

01445 

1023 


TAD 

TEMP 


756 

01446 

2023 


ISZ 

TEMP 


757 

01447 

1252 


TAD 

• +3 


758 

01450 

3251 


DC A 

• ♦1 


759 

01451 

7402 


HIT 



760 

01452 

5653 


JMP I 

,*i 

/SEQUENCE OF OPERATIONS 

761 

01453 

1467 


PTR2FLD 


/GET FIRST WORD 

762 

01454 

1506 


FRSTDIG 


/FIRST DIGIT OF LINE NUMBER 

763 

01455 

1507 


DIGIT 


/SECOND DIGIT 

7 64 

01456 

1507 


DIGIT 


/THIRD DIGIT 

765 

01457 

146 7 


PTR2FID 


/GET NEXT WORD OF LINE NUMBER 

766 

01460 

1507 


DIGIT 


/FOURTH DIGIT 

767 

01461 

1507 


DIGIT 


/FIFTH DIGIT 

768 

01462 

1505 


LASTDIG 


/SIXTH AND LAST DIGIT 


/OS/8 

BASIC 1 

EDITOR 


PAi,a-v7 10/21/72 r> ib e a-i 

789 

01463 

146/ 

PTR2FL0 


/GET wURO OF TEXT 

770 

01464 

152 b 

IfcFTTXT 


/LEFT CHARACTER 

7 71 

01465 

1533 

RITtTXT 


/HIGH? CHARACTER 

77a 

01466 

1550 

L INF TXT 


/LINF FtEO CHARACtF* 

773 

01467 

7402 

PTR2FLD # HIT 



/CHECK FOR EOF 

774 

01470 

142b 

TAP 

I 

PTR 


775 

01471 

6201 

CDF 




778 

01472 

1103 

TAD 


07701 


777 

01473 

7450 

SNA 




778 

01474 

5644 

JMP 

I 

GETFIt 

/YES. RETURN UNSK1PPE0 

779 

01475 

1120 

TAP 


077 


780 

01476 

3024 

OCA 


TEMP2 

/NO, SAVE WORD 

781 

01477 

2026 

ISZ 


PTR 

/HUMP POINTER 

782 

01500 

5245 

JMP 


GETFILM 


783 

01501 

1267 

TAD 


PTR2FLD 


784 

01502 

1111 

TAD 


010 


785 

01503 

326/ 

DC A 


PTR2FLD 


788 

01504 

5245 

JMP 


GETFILM 


787 

01505 

7201 

LASTDIG i CL A 

I AC 


/FORCE LAST DIGIT (EVEN IF 0) 

788 

01506 

3027 

FRSTOIG,DCA 


NDIGS 

/ZERO DIGIT COUNT 

789 

01507 

1024 

DIGIT# TAD 


TEMP2 


790 

01510 

700b 

RTL 




791 

01511 

7006 

RTl 




792 

01512 

3024 

OCA 


TEMP2 

/SHIFT left one DIGIT 

793 

01513 

1024 

TAD 


TEMP2 


794 

01514 

7004 

RAU 




795 

01515 

0072 

AND 


017 

/GET DIGIT 

798 

01516 

7440 

SZA 




797 

01517 

5323 

JMP 


NZDIGIT 

/ITS NOT ZERO 

798 

01520 

102/ 

TAD 


NDIGS 

/IS IT A leading ZERO ? 

799 

01521 

7650 

SNA 

CIA 



800 

01522 

5245 

JMP 


GtTFIl+l/YfcS, QON'T PRINT IT 

801 

01523 

2027 

NZDIGIT, ISZ 


NDIGS 

/NON ZERO OR NON LEADING ZERO 

802 

01524 

1073 

TAD 


0260 

/SO PRINT IT 

803 

01525 

5342 

JMP 


GFRET 


804 

01526 

1024 

L£FTTXT#TAD 


TEMP2 

/GET LEFT CHAR 

805 

01527 

7012 

RTR 




808 

01530 

7012 

RTR 




807 

01531 

7012 

RTR 




808 

01532 

5336 

JMP 


.♦4 


809 

01533 

1111 

R I TtTXT # T AO 


010 

/SETUP FOR LEFT CHAR NEXT 

810 

01534 

3023 

DC A 


TEMP 


811 

01535 

1024 

TAD 


TEMP2 


812 

01536 

0120 

AND 


077 

/SIXBITIZE AC 

813 

01537 

7450 

SNA 




814 

01540 

5344 

JMP 


ZEROTXT 

/ 0 IS END OF THE LINE 

815 

01541 

1074 

TAD 


0237 

/MAKE IT ASCII 

818 

01542 

2244 

GFRET# ISZ 


GETFIL 


817 

01543 

5644 

JMP 

I 

GETFTL 


818 

01544 

1075 

ZERQTXT # T AD 


013 

/SETUP FOR LF NEXT 

819 

01545 

3023 

OCA 


TEMP 


820 

01546 

1076 

TAD 


0215 

/RETURN CR 

621 

01547 

5342 

JMP 


GFRET 


822 

01550 

3023 

L INFTXT # OCA 


TEMP 

/clear sequencer AND RETURN LF 

823 

01551 

107/ 

TAD 


0212 
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824 

01552 

5342 


JMP 


GFRfcT 


825 

01553 

0000 

CTRLO, 

0 



/CHECK FOR *0 AND “C 

826 

01554 

6031 


KSF 



/CHECK FOR ‘0 

827 

01555 

5366 


JMP 


CTRLOX 

/NO KEYBOARD 

828 

01556 

6036 


KRB 




629 

01557 

0062 


AND 


0177 


830 

01560 

1060 


TAD 


07761 


831 

01561 

7450 


SNA 




832 

01562 

5370 


JMP 


CTRL0X+2/SET FLAG OFF 

633 

01563 

1127 


TAD 


014 

/*C 7 

834 

01564 

7650 


SNA 

CLA 



835 

01565 

5775* 


JMP 


BYEBYE 

/YES, END 

836 

01566 

2353 

CTRLOX, 

ISZ 


CTRLO 

/FIX RETURN 

837 

01567 

7201 


CLA 

I AC 


/SET FLAG «1 IF NO CTRL/O 

838 

01570 

3031 


DCA 


COFLAG 


839 

01571 

5753 


JMP 

I 

CTRLO 



/OS'S BASIC EDITOR 


PALS-v 


1 PibF a 


840 

01575 

107*? 





841 

01576 

7740 





ft 4c? 

0157/ 

3342 





843 


1600 


PAGt 



644 

01600 

0000 

GETFN, 

0 



845 

01601 

3323 


UCA 


S A V F L A G 

846 

01602 

1032 


TAD 


CHNFLAG 

847 

01603 

7640 


SZA 

CLA 


84ft 

01604 

5215 


JMP 


NOFUSK 

849 

01605 

4555 


JMS 

I 

[SWAP 

850 

01606 

1323 


TAD 


SAVFLAG 

851 

01607 

7650 


SNA 

CLA 


852 

01610 

7001 


I AC 



853 

01611 

377 7 ' 


DC A 


7746 

854 

01612 

62U 


C IF 


10 

855 

01613 

4455 


JMS 

I 

07700 

858 

01614 

0010 


10 



857 

01615 

3030 

NOFUSR, 

DC A 


NCHAPS 

858 

01616 

4776' 

BSKIP, 

JMS 


GfcTNC 

859 

01617 

5275 


JMP 


ASKNAM 

860 

01620 

1260 


TAD 


M40 

861 

01621 

7640 


SZA 

CLA 


662 

01622 

5216 


JMP 


BSKIP 

663 

01623 

4324 

NOSKIP, 

JMS 


GfcTNAM 

664 

01624 

7650 


SNA 

CLA 


865 

01625 

5236 


JMP 


USEDSK 

866 

01626 

1041 


TAD 


NAME 

867 

01627 

3247 


DC A 


OEV 

668 

01630 

1042 


TAD 


NAMEM 

869 

01631 

3250 


OCA 


OEV + 1 

870 

01632 

4324 


JMS 


GETNAM 

871 

01633 

7640 


SZA 

CLA 


872 

01634 

5775' 


JMP 


IQEK9 

873 

01635 

5242 


JMP 


gethan 

874 

01636 

1374 

USEDSK, 

TAD 


(0423 

875 

01637 

3247 


DC A 


OEV 

876 

01640 

137 3 


TAD 


(1300 

877 

01641 

3250 


DC A 


QEV+1 

678 

01642 

1144 

gethan, 

TAD 


[HANDLR 

879 

01643 

3251 


DC A 


PE V + 2 

880 

01644 

6212 


C I F 


10 

881 

01645 

4456 


JMS 

I 

0200 

882 

01646 

0001 


1 



883 

01647 

0000 

DEV, 

070 ; 

0 


884 

01650 

0000 





885 

01651 

0000 





886 

01652 

5775' 


JMP 


IOERR 

887 

01653 

1250 


TAD 


DEV+l 

888 

01654 

3052 


DC A 


QEVNUM 

889 

01655 

1251 


TAD 


oev+a 

890 

01656 

3051 


DC A 


OEVHAN 

891 

01657 

1323 

MOVEFN, 

TAD 


SAVFLAG 

892 

01660 

7740 

M40 , 

SMA 

SZA 

CLA 

893 

01661 

5600 


JMP 

I 

GETFN 

894 

01662 

1041 


TAD 


NAME 



/GET A FILE NAME t At SC FETCH IT. h4NMk) 
/Sl FOR SAVE, 0 F OH OLD OR NEW 
/RETURNING FROM RUN ? 

/YES, DON'T FETCH U5R 
/GET OSS RESIDENT 
/IS IT OLD OR NEW T! 

/YES, DON'T SWAP 10000-U/77 
/OO IF SAVE, SO ALTER JSW 
/GET THE USR 


/RESET CHAR POlNTtR 
/GET A CHAR 
/ASK FOR FILE NAME 
/BLANK ? 

/NO, LOOP 
/GET A NAME 

/NO DEVICE SPECIFIED, USE DSK : 
/PUT IN THE DEVICE NAME 
/AS SPECIFIED 


/FETCH THE FILE NAME 

/BAD SYNTAX IN FILE DESCRIPTOR 
/GO FETCH THE HANDLER 
/SET DEVICE NAME TO DSK: 


1 

/ALSO THE HANDLER ORIGIN 

/CALL THE USR 

/FETCH HANOLER BY NAME 


/BAD DEVICE 

/SAVE THE DEVICE NUMBER 

/AND THE HANDLER ENTRY POINT 

/WAS IT A SAVE 1 

/YES, JUST RETURN 

/NEW OR OLD, ANY NAME GIVEN ? 
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/08/8 BASIC EDITOR PAL6-V7 


895 

01663 

7450 


SNA 



896 

01664 

5600 


JMP 

I 

GETFN 

897 

01665 

3045 


OCA 


FNAME 

898 

01666 

1042 


TAD 


NAME* 1 

899 

01667 

3046 


OCA 


fnamem 

900 

01670 

1043 


TAD 


NAME*2 

901 

01671 

3047 


OCA 


FNAME *2 

902 

01672 

1044 


TAD 


NAME*3 

903 

01673 

3050 


OCA 


FNAME*3 

904 

01674 

5600 


JMP 

I 

GETFN 

905 

01675 

1323 

A$KNAM, 

TAD 


SAVFLAG 

906 

01676 

7750 


SPA 

SNA 

CLA 

907 

01677 

5313 


JMP 


ASKNM 

908 

01700 

1045 


TAD 


FNAME 

909 

01701 

7450 


SNA 



910 

01702 

5313 


JMP 


ASKNM 

911 

01703 

3041 


OCA 


NAME 

912 

01704 

1046 


TAD 


fname*i 

913 

01705 

3042 


OCA 


NAME* 1 

914 

01706 

1047 


TAD 


FNAME*2 

915 

01707 

3043 


OCA 


NAME *2 

916 

01710 

1050 


TAD 


FNAME*3 

917 

01711 

3044 


OCA 


NAME+3 

918 

01712 

5600 


JMP 

I 

GETFN 

919 

01713 

7201 

asknm, 

CLA 

I AC 


920 

01714 

4576 


JMS 

I 

CTYPE 

921 

01715 

2167 


ASKFN 


922 

01716 

4567 


JMS 

I 

CGETLIN 

923 

01717 

7650 


SNA 

CtA 


924 

01720 

5543 


JMP 

I 

CWHAT 

925 

01721 

3030 


OCA 


NCHARS 

926 

01722 

5223 


JMP 


NOSKIP 

927 

01723 

0000 

SAVFLAG 

#0 



<728 

01724 

0000 

getnam, 

0 



929 

01725 

3041 


OCA 


NAME 

930 

01726 

3042 


OCA 


NAME* 1 

931 

01727 

3043 


OCA 


NAME+2 

932 

01730 

1057 


TAD 


0201 

933 

01731 

3044 


OCA 


NAME*3 

934 

01732 

1142 


TAD 


[NAME 

935 

01733 

3024 


OCA 


TEMP2 

936 

01734 

1112 


TAD 


07774 

937 

01735 

3022 


OCA 


SIZE 

938 

01736 

4545 

NAMLUP, 

JMS 

I 

CGETNC 

939 

01737 

5724 


JMP 

I 

GETNAM 

940 

01740 

7106 


CLL 

RTL 


941 

01741 

7006 


RTL 



942 

01742 

7006 


RTL 



943 

01743 

3424 


OCA 

I 

TEMP2 

944 

01744 

4543 


JMS 

I 

[GETNC 

945 

01745 

5724 


JMP 

I 

GETNAM 

946 

01746 

1424 


TAO 

I 

TEMP2 

947 

01747 

3424 


OCA 

I 

TEMP2 

948 

01750 

2024 


ISZ 


TEMP2 

949 

01751 

2022 


ISZ 


SIZE 


/NO, PROBABLY JUST A DEVICE 
/YES, SAVE IT 


/WAS THIS A SAVE ? 

/NO, GO ASK FOR A NAME 

/IT WAS A SAVE, ANY OLD NAME TO USE ? 

/NO, GO ASK FOR ONE 
/YES, MOVE INTO NAME 


/ASK FOR FILE NAME 

/GET THE INPUT LINE 
/??? 

/SET CHAR POINTER 
/GO GET THE NAME 

/GET A FILE OR DEVICE NAME 
/ZERO THE NAME SUFFER 

/USE DEFAULT EXT ,BA 
/SETUP POINTER 
/SETUP SIZE (MAX 4 WORDS) 
/GET A CHAR 

/SAVE IT 

/COMBINE THE ^ 

/ANY MORE ? 


/OS/8 BASIC EDITOR 
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950 

01752 

5336 


JMP 


NAMLUP 

951 

0 1 7 5 i 

5724 


J M P 

I 

GETNAM 

952 

01754 

7130 

RENAME, 

CLL 

CML 

RAH /SAVE U5R AREA 

953 

01755 

4200 


JMS 


GETFN /GET FILE NAME 

954 

01756 

6212 


CIF 


10 

955 

01757 

4456 


JMS 

I 

0200 /REMOVE USR 

95b 

01760 

0011 


1 1 


/AND HESTORE 10000-11777 

957 

01761 

4555 


JMS 

I 

(SWAP /SWAP OSS RESIDENT 

958 

01762 

5555 


JMP 

I 

(CMDDONE 

959 

01763 

1154 

NEW, 

TAD 


t T X T AREA /SCRATCH 

9b0 

01764 

4562 


JMS 

I 

[SETEQF 

961 

01765 

3037 


DC A 


EOFLIN /zero last line num 

962 

01766 

3040 


DC A 


E0FLIN+1 

963 

01767 

4200 


JMS 


GETFN /GET the file name 

96a 

01770 

4555 


JMS 

I 

[SWAP /REMOVE OSS 

965 

01771 

5553 


JMP 

I 

[CMDDONE 
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966 

01773 

1300 







967 

0177a 

0423 







968 

01775 

2715 







969 

01776 

1332 







970 

01777 

7746 







971 


2000 


PAGE 




972 

02000 

0000 

putfil. 

0 



/WRITE THE FILE 


973 

02001 

1154 


TAO 


CTXT AREA 


974 

02002 

3026 


OCA 


PTR 

/GET POINTED TO TEXT 


975 

02003 

1110 


TAO 


06201 

/GET FIELD OF TEXT 


976 

02004 

3541 


OCA 

I 

IPTR2FLD 


977 

02005 

3023 


OCA 


TEMP 

/ZERO LINE SEQUENCER 


978 

02006 

1140 


TAO 


CDSKBUF 

/GET AODR OF DISK BUFFER 


979 

02007 

3003 


OCA 


SWAPT1 

/BUFFER POINTER 


980 

02010 

1071 


TAO 


07600 



981 

02011 

3004 


OCA 


SWAPT2 

/DOUBLE WORD COUNTER 


982 

02012 

1310 


TAD 


JMP INS 

/SET 3 WAY SWITCH 


983 

02013 

3233 


OCA 


PUTJMP 



984 

020 1 a 

4537 

PFLOOP, 

JMS 

I 

CGETFIL 

/GET A CHAR FROM TEXT AREA 


985 

02015 

5220 


JMP 


PFCTLZ 

/END OF FILE 


986 

02016 

4231 


JMS 


PUTCH 

/OUTPUT IT 


987 

02017 

5214 


JMP 


PFLOOP 

/DO NEXT CHAR 


988 

02020 

1063 

PFCTLZ, 

TAD 


0232 

/PUT CTRL-Z 


989 

02021 

4231 


JMS 


PUTCH 



990 

02022 

1064 


TAD 


07201 

/BUFFER DUMP COUNT 


991 

02023 

3230 


OCA 


PFTEMP 



992 

02024 

4231 


JMS 


PUTCH 

/FILL WITH ZEROES 


993 

02025 

2230 


ISZ 


PFTEMP 



994 

02026 

5224 


JMP 


."2 



995 

02027 

5600 


JMP 

I 

PUTFIL 

/DONE 


996 

02030 

0000 

PFTEMP, 

0 





997 

02031 

0000 

PUTCH, 

0 



/PUT A CHAR ONTO THE OSS FILE 

998 

02032 

3006 


OCA 


SWAPT4 

/SAVE THE CHAR 


999 

02033 

7402 

PUTJMP, 

HIT 



/JUMP TO CORRECT PLACE 


1000 

02034 

5304 


JMP 


PHI 

/FIRST CHAR 


1001 

02035 

5301 


JMP 


PH2 

/SECOND CHAR 


1002 

02036 

1310 

PH3, 

TAD 


JMPINS 

/RESTORE SWITCH 


1003 

02037 

3233 


OCA 


PUTJMP 



1004 

02040 

1006 


TAD 


SWAPT4 

/GET THE CHAR 


1005 

02041 

0072 


AND 


017 

/LOW FOUR BITS 


1006 

02042 

7110 


CLL 

RAR 




1007 

02043 

7012 


RTR 



/INTO THE HIGH PART OF WORD 

TWO 

1008 

02044 

7012 


RTR 





1009 

02045 

1403 


TAO 

I 

S W APT 1 

/COMBINE WITH CHAR 2 


1010 

02046 

3403 


OCA 

I 

SWART 1 



1011 

02047 

1006 


TAD 


SNAPT4 

/GET THE HIGH FOUR BITS 


1012 

02050 

7006 


RTL 





1013 

02051 

7006 


RTL 



/INTO THE HIGH PART OF WORD 

ONE 

1014 

02052 

0124 


AND 


07400 



1015 

02053 

1405 


TAD 

I 

SWAPT3 

/COMBINE WITH WORD ONE 


1016 

02054 

3405 


OCA 

I 

SWAPT3 



1017 

02055 

2003 


ISZ 


8WAPT1 

/BUMP POINTER 


1018 

02056 

2004 


ISZ 


SWAPT2 

/BUMP DOUBLt WORD COUNT 


1019 

02057 

5631 


JMP 

I 

PUTCH 

/RETURN 


1020 

02060 

4555 


JMS 

I 

[SWAP 

/SWAP IN 0S8 
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1021 

02061 

4451 


JMS I 

DEVH AN 

/WRITE THIS BUFFER 

1022 

02062 

4200 


4200 



1023 

02063 

4000 


DSKBUF 



1024 

02064 

0000 

WRBLOK , 

0 



1025 

02065 

5777 * 


JMP 

OUERR 


1028 

02066 

2311 


ISZ 

OUSIZE 

/ANY ROOM UEFT ? 

1027 

02067 

7410 


SKP 



1028 

02070 

5777' 


J HP 

OUERR 

/NO, ERROR 

1029 

02071 

2264 


ISZ 

WRBLOK 

/BUMP BLOCK NUMBER 

1030 

02072 

2776' 


ISZ 

QULEN 

/BUMP ACTUAL SIZE 

1031 

02073 

4555 


JMS I 

tSWAP 

/SWAP BACK 

1032 

02074 

1140 


TAD 

CDSKBUF 

/SET UP BUFFER POINTER 

1033 

0207S 

3003 


DCA 

SWAPTl 


1034 

02076 

1071 


TAD 

07600 


1035 

02077 

3004 


DCA 

5WAPT2 

/SET UP COUNT 

1038 

02100 

5631 


JMP I 

PUTCH 


1037 

02101 

1003 

PH2 f 

TAD 

SWAPTl 

/SAVE POINTER TO FIRST 

1038 

02102 

3005 


DCA 

SWAPT3 


1039 

02103 

2003 


ISZ 

SWAPTl 

/BUMP POINTER 

10«0 

02104 

1006 

PHI, 

TAD 

SWAPT4 

/GET CHAR 

10«1 

02105 

3403 


DCA I 

SWAPTl 

/INTO BUFFER 

1042 

02106 

2233 


Z8Z 

PUTJMP 

/BUMP SWITCH 

1043 

02)07 

5631 


JMP I 

PUTCH 


1044 

00130 

9214 

JHPINS. 

JMP 

PUTJMP*) 


1045 

02111 

««ae 

0U8JZE, 

.1 



1048 

02111 

•008 

SWAP, 

0 


/SWAP OSS RESIDENT 

1047 

02113 

2053 


ISZ 

SWPNUM 

/FLIP BVE0YE SWITCH 

1048 

02114 

7000 


NOP 



1049 

02115 

4127 


JMS 

SWAP2 

/WITH OSBRES THROUGH 0SSR£S*577 

1050 

02116 

3200 


0S8RES 



1051 

01117 

_ 6 201 ... 


CQP 


•• ■ ~ - vrs“*~** -••••» ******* - 

1052 


“ftf? 


JMS 

SWAP2 


1053 

02121 

3400 


OSSRES+200 


10.54 

1055 

02122 

02123 

6211 

ur 


COP 10 

"JMP" 1 “ 


\V^ tfc % s' 

1058 

02124 

3600 


OS6RES+400 

■ 

1057 

02125 

6221 


CDF 20 



1058 

02126 

5712 


JMP I 

SWAP 


1059 

02127 

0000 

SWAP2, 

0 



1080 

02130 

1071 


TAD 

07600 


1081 

02131 

3005 


OCA 

SWAPT3 

r 

1082 

02132 

1727 


TAD I 

SWAP2 


1083 

02133 

2327 


ISZ 

SWAP2 


1084 

02134 

3006 


DCA 

SWAPT4 ■ 


1065 

02135 

1727 


TAD I 

SWAP2 


1066 

02136 

2327 


ISZ 

SWAP2 


1067 

02137 

3347 


DCA 

SWPF tO 


1068 

02140 

5145 


JMP 

.*5 


1069 

02141 

6201 

SWPLUP, 

CDF 00 



1070 

02142 

1003 


TAD 

SWAPTl 


1071 

02143 

1406 


DCA 1 

SWAPT4 


1072 

02144 

2006 


ISZ 

SWAPT4 


1073 

0214S 

1406 


tad I 

SWAPT4f ) 

1074 

02146 

3004 


OCA 

SWAPT2- 


1075 

02147 

7402 

SWPFLD, 

HUT 
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1076 

02150 

1405 


TAD I 

SWAPT3 ■ 

1077 

02151 

3003 


oca 

SWART 1 

1078 

02152 

1004 


TAD 

SWAPT2 C ** 

1079 

02153 

3405 


DC A 1 

SWAPT3 , 

1080 

0215a 

2005 


ISZ 

SWAPT3 

1081 

02155 

5341 


JMP 

5WPLUP- 

1082 

02156 

6201 


CDF 00 


1083 

02157 

1003 


TAD 

SWART 1 

108 a 

02160 

340b 


OCA I 

SWAPT4 

1085 

02161 

5727 


JMP I 

SWAP2 

1086 

02162 

4342 

BAOF1L, 

4342>4501>4752>5546>0 

1087 

02163 

4501 




1088 

0216a 

4752 




1089 

02165 

554b 




1090 

02166 

0000 




1091 

02167 

4752 

askfn, 

47521 5546> 01 57 >4256146 16 11600 

1092 

02170 

554b 




1093 

02171 

0157 




109a 

02172 

4256 




1095 

02173 

4b 1 b 
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1097 

02176 

2266 




109a 

02177 

2720 




1099 


2200 


PAGE 


1100 

02200 

1550 

RUN, 

TAD 

I 

1101 

02201 

154? 


TAD 

I 

1102 

02202 

1377 


TAD 


1103 

02203 

7640 


SZA 

CLA 

1104 

02204 

4546 


JMS 

I 

1105 

02205 

1172 


TAD 


1106 

02206 

3023 


DC A 


1107 

02207 

1136 


TAD 


1108 

02210 

3026 


DC A 


1109 

02211 

1123 


TAD 


1110 

02212 

3024 


DC A 


1111 

02213 

1426 


TAD 

I 

1112 

02214 

2026 


ISZ 


1113 

02215 

3423 


DCA 

I 

1114 

02216 

2023 


ISZ 


1115 

02217 

2024 


ISZ 


1118 

02220 

5213 


JMP 


1117 

02221 

2033 


ISZ 


1118 

02222 

5226 


JMP 


1119 

02223 

3033 

SAVE, 

DCA 


1120 

02224 

1052 


TAO 


1121 

02225 

3321 


DCA 


1122 

02226 

7201 

GFN, 

CLA 

I AC 

1123 

02227 

4535 


JMS 

I 

1124 

02230 

1265 


TAD 


1125 

02231 

3236 


DCA 


1126 

02232 

1052 


TAD 


1127 

02233 

6212 


CIF 


1128 

02234 

4456 


JMS 

I 

1129 

02235 

0003 


3 


1130 

02236 

0000 

SAVBLK, 

0 


1131 

02237 

0000 


0 


1132 

02240 

5776* 


JMP 


1133 

02241 

1236 


TAD 


1134 

02242 

3775* 


DCA 


1135 

02243 

1237 


TAD 


1136 

02244 

3774* 


DCA 


1137 

02245 

3266 


DCA 


1138 

02246 

6212 


CIF 


1139 

02247 

4456 


JMS 

I 

1140 

02250 

0011 


11 


1141 

02251 

4555 


JMS 

I 

1142 

02252 

4773' 


JMS 


1143 

02253 

4555 


JMS 

I 

114a 

02254 

1033 


TAD 


1145 

02255 

3772* 


DCA 


1146 

02256 

6212 


CIF 


1147 

02257 

4455 


JMS 

I 

1148 

02260 

0010 


10 


1149 

02261 

1052 


TAO 


1150 

02262 

6212 


CIF 


1151 

02263 

4456 


JMS 

I 
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tLINE+3 /RUNNH ? 

CLINE+4 

(•3057 

CHEADING/GIVE A HEADING 

(LINE+2 /SET UP FAKE LINE 

TEMP 

CW5SAVE 

PT« 

07771 

TEMP2 

PTR /MOVE FAKE LINE INTO 11 LINE” 

PTR 

TEMP 

TEMP 

TEMP2 

• -5 

RUNFLAG /SET RUN FLAG 
GFN 

RUNFLAG /CLEAR THE RUN FLAG 
OEVNUM /SAVE CURRENT DEVICE NUM 
OLODEV /INCASE WE CHANGE 
/SET SAVFLAG 

CGETFN /GET THE DEV S NAME , EX 
XNAME /SET UP ENTER 
SAVBL* /POINTER TO FILE NAME 
DEVNUM /GET DEVICE NUMBER 
10 

0200 /ENTER FILE 

/STARTING BLOCK GOES HERE 
/SIZE GOES HERE 

IOERR 

SAVBLK /PUT BLOCK NUMBER 
WRBLOK /INTO WRITE 
SAVBLKM/PUT SIZE 
OUSIZE /SOMEWHERE TOO 
QULEN /ZERO BLOCK COUNT 
10 

0200 /DUMP USR 

(SWAP /AND NOW OSS 

PUTFIL /DO THE SAVE 

(SWAP /GET 0S8 

RUNFLAG /SET NO SWAP BIT IF RUN 

7746 

10 /GET THE USR 

07700 

DEVNUM /GET DEVICE NUMBER 
10 

0200 /CLOSE THE FILE 
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1152 

0226a 

0804 


4 



1153 

02265 

0041 

XNAME, 

NAME 



1154 

02266 

00014 

QULENi 

0 


/SIZE 

1155 

02267 

5776' 


JMP 


IOERR 

1156 

02270 

103J 


TAD 


RUNFLAG /was it a run ? 

1157 

02271 

7640 


SZA 

CLA 


1158 

02272 

5771* 


JMP 


QORUN /YES 

1159 

02273 

1321 


TAO 


OLDDEV /IS QL.0 DEVICE 

1160 

02274 

7041 


CIA 


/THE SAME AS 

1161 

02275 

1052 


TAO 


OEVNUM /THE NEW ONE ?? 

1162 

02276 

7650 


SNA 

CIA 


1163 

02277 

5314 


JMP 


HNDLOK /YES, THE HANDLER IS OK 

1164 

02300 

1321 


TAD 


OLDDEV /RESTORE DEVICE NUMBER 

1165 

02301 

3052 


DC A 


OEVNUM 

1166 

02302 

1184 


TAD 


(HANOLR+1 

1167 

02303 

3310 


DCA 


DEVN /SET UP HANDLER LOAD AODR 

1168 

02304 

1052 


TAD 


OEVNUM 

1169 

02305 

6212 


CIF 


10 

1170 

02306 

4456 


J MS 

I 

0200 

1171 

02307 

0001 


1 



1172 

02310 

0000 

DEVN, 

0 



1173 

02311 

5776' 


JMP 


IOERR 

1174 

02312 

1310 


TAD 


DEVN /RESET THE HANDLER ADORESS 

1175 

02313 

3051 


DCA 


devhan 

1176 

02314 

6212 

HNDLOK, 

CIF 


10 /GET RIO OF THE USR 

1177 

02315 

4456 


JMS 

I 

0200 

1178 

02316 

0011 


11 



1179 

02317 

4555 


JMS 

I 

[SWAP /REMOVE 0S8 AGAIN 

1180 

02320 

5553 


JMP 

I 

[CMOOONE 

1181 

02321 

0000 

OLDDEV, 

0 



1182 

02322 

0000 

FINDLN, 

0 


/FIND A LINE 

1183 

02323 

1154 


TAD 


itxtarea 

1184 

02324 

3023 


DCA 


TEMP 

1185 

02325 

1023 

SEARCH, 

TAD 


TEMP /COMPARE THE NUMBER OF 

1186 

02326 

3026 


DCA 


PTR /THIS LINE WITH THE SPOT 

1187 

02327 

1423 


TAD 

I 

TEMP /IN THE TEXT AREA, 

1188 

02330 

1103 


TAD 


07701 

1189 

02331 

7450 


SNA 



1190 

02332 

5722 


JMP 

I 

FINDLN /NEW LINE GOES AT EOF 

1191 

02333 

1120 


TAD 


077 

1192 

02334 

7141 


cut 

CIA 


1193 

02335 

1035 


TAD 


LINENO 

1194 

02336 

7450 


SNA 



1195 

02337 

5347 


JMP 


SAME 1 ST 

1196 

02340 

7620 


SNL 

CLA 


1197 

02341 

5722 


JMP 

I 

FINDLN /INSERT NEW LINE 

1198 

02342 

2023 


ISZ 


TEMP 

1199 

02343 

7410 


SKP 



1200 

02344 

4560 


JMS 

I 

[FINCR 

1201 

02345 

4534 

CQNTIN, 

JMS 

I 

[PASS /IF ITS GREATER KEEP SEARC 

1202 

02346 

5325 


JMP 


SEARCH 

1203 

02347 

2023 

SAME 1ST 

,I5Z 


TEMP /FIRST HALF OF LINE NUM S« 

1204 

02350 

7410 


SKP 



1205 

02351 

4560 


JMS 

I 

[FINCR 

1206 

02352 

1423 


TAD 

I 

TEMP 
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1207 

02353 

7141 

CLL 

CIA 

/CHECK SECOND HALF 

1208 

02354 

103b 

TAD 


LINEN 0+1 

1209 

02355 

7450 

SNA 



1210 

02356 

5365 

JMP 


SAME2ND /REPLACE OLD with new 

1211 

02357 

7630 

SZL 

CLA 


1212 

02360 

5345 

JMP 


CONTIN 

1213 

02361 

4533 

JMS 

1 

[F DECK 

1214 

02362 

1023 

TAD 


TEMP 

1215 

02363 

3026 

PC A 


PTR 

1216 

02364 

5722 

JMP 

I 

FINDLN /INSERT NEW LINE 

1217 

02365 

4534 

SAME2ND, JMS 

I 

[PASS 

1218 

02366 

5722 

JMP 

I 

FINDLN 
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1819 

02371 

2400 





1880 

02372 

7746 





1821 

02373 

200(9 





1222 

0237a 

8111 





1883 

02375 

2064 





1284 

02376 

2715 





1285 

02377 

4721 





1886 


2400 


PAGE 



1287 

02400 

1377 

DORUN, 

TAD 

(INF0M1/3ET UP SOME OF INFO BLOCK 

1288 

02401 

3010 


OCA 

X10 


1289 

02402 

6211 


CDF 

10 


1230 

02403 

1851 


TAD 

devhan 

/SAVE DEVICE HANDLE* ADDRESS COSKj) 

1231 

02404 

3410 


DCA I 

X10 


1238 

02405 

7126 


CLL CML 

rtl 

/SAVE DEVICE NUMBER 

1233 

02406 

3410 


OCA I 

X 1 0 


1234 

02407 

6201 


CDF 



1235 

02410 

1776* 


TAO 

5AVBLK 

/SAVE STARTING BLOCK 

1236 

02411 

6211 


CDF 

10 


1237 

02412 

3410 


DCA I 

X10 


1238 

02413 

1045 


TAD 

FNAME 

/SAVE FILE NAME 

1239 

02414 

3410 


DCA I 

X10 


1240 

02415 

1046 


TAD 

FNAME* 1 


1241 

02416 

3410 


DCA I 

X 1 0 


1242 

02417 

1047 


TAD 

FNAME+2 


1243 

02420 

3410 


DCA I 

X 10 


1244 

02421 

1050 


TAD 

FNAME+3 


1245 

02422 

3410 


DCA I 

X10 


1248 

02423 

6201 


CDF 



1247 

02424 

4315 


JMS 

XMOVE 

/MOVE THIS PAGE INTO FIELD 1 

1248 

02425 

6201 


CDF 


1849 

02426 

2400 


DORUN 



1250 

02427 

6211 


CDF 

10 


1251 

02430 

7600 


• 200 



1252 

02431 

6813 


CDF C I F 

10 

/GO TO THE FIELD ONE COPY 

1253 

02432 

4315 

RUNOO, 

JMS 

XMOVE 

/MOVE THE HANDLER INTO FIELD 1 

1254 

02433 

6201 


CDF 


1255 

02434 

4400 


HANOLR 



1256 

02435 

6211 


CDF 

10 


1257 

02436 

7400 


• 400 



1258 

02437 

1775* 


TAD 

INFO+1 

/GET START OF BCOMP.SV 

1259 

02440 

3245 


DCA 

BCBLOK 


1260 

02441 

6202 


CIF 



1261 

02442 

4774* 


JMS 

7607 

/READ IN THE COMPILER 

1262 

02443 

3700 


8CSIZE 



1263 

02444 

0000 


0 



1264 

02445 

0000 

bcblok, 

0 



1265 

02446 

5275 


JMP 

rtHUPS 


1266 

02447 

4315 


JMS 

XMOVE 

/MOVE BACK THE HANDLER 

1267 

02450 

6211 


CDF 

10 

1268 

02451 

4400 


HANDLR 



1269 

02452 

6201 


CDF 



1270 

02453 

7400 


•400 



1271 

02454 

7801 


CLA I AC 


/OPEN THE TEMP FlLfc 

1272 

02455 

4773' 


JMS 

200 


1273 

02456 

0003 


3 
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1274 

02457 

254 7 

TMPBLK, 

TMPFIL 



1275 

02460 

000 0 


0 




1278 

02461 

5273 


JMP 


WHUPS 


1277 

02462 

4773' 


JMS 


200 

/RESET SYSTEM TABLES 

1278 

02463 

0013 


IS 



/AND REMOVE TENTATIVE FILES 

1279 

02464 

1257 


TAD 


TMPBLK 

/SAVE ITS START 

J 280 

02465 

3772' 


DC A 


INFO* 1 0 


1281 

02466 

1280 


TAD 


tmpblkm 


1282 

02467 

3777' 


DC A 


INFQ+li 

/AND ITS MAX LENGTH 

1283 

02470 

3771 * 


DCA 


7644 

/KILL R SWITCH 

1284 

02471 

6203 


C IF 

CDF 



1285 

02472 

5770' 


JMP 


BCBfcGN 

/GO START THE COMPILER 

1288 

02473 

1367 

WHUPS, 

TAD 


(123 

/PRINT SY ERROR 

1287 

02474 

4307 


JMS 


TTYO 


1288 

02475 

1366 


TAD 


(131 


1289 

02476 

4307 


JMS 


TTYO 


1290 

02477 

1365 


TAD 


(15 


1291 

02500 

4307 


JMS 


TTYO 


1292 

02501 

1364 


TAO 


(12 


1293 

02502 

4307 


JMS 


TTYO 


1294 

02503 

6041 


TSF 



/WAIT FOR FLAG 

1295 

02504 

5303 


JMP 


9 * 1 


1298 

02505 

6203 


COF 

C IF 



1297 

02506 

5775' 


JMP 


7605 

/RETURN TO 058 

1298 

02507 

0000 

TTYO, 

0 




1299 

02510 

6041 


TSF 




1300 

02511 

5310 


JMP 


• -1 


1301 

02512 

6046 


TLS 




1302 

02513 

7200 


CLA 




1303 

02514 

5707 


JMP 

I 

TTYO 


1304 

02515 

0000 

XMOVE , 

0 




1305 

02516 

6214 


RDF 



/GET CALLING FIELD 

1308 

02517 

1363 


TAO 


(6203 

/PLUS C IF COF 0 

1307 

02520 

3340 


DCA 


MOVRTN 

/FOR RETURN 

1308 

02521 

4343 


JMS 


GMOVE 

/GET FROM FIELD 

1309 

02522 

3331 


DCA 


MFFLP 


1310 

02523 

4343 


JMS 


GMOVE 

/GET AODRESS 

1311 

02524 

3342 


DCA 


MFPTR 


1312 

02525 

4343 


JMS 


GMOVE 

/GET TO FIELD 

1313 

02526 

3333 


DCA 


MTFLD 


1314 

02527 

4343 


JMS 


GMOVE 

/GET COUNT 

1315 

02530 

3343 


DCA 


MCNT 


1318 

02531 

7402 

MFFLD, 

HLT 




1317 

02532 

1742 


TAD 

I 

MFPTR 

/MOVE IT 

1318 

02533 

7402 

MTFlD, 

HLT 




1319 

02534 

3742 


DCA 

I 

mfptr 


1320 

02535 

2342 


ISZ 


MFPTR 


1321 

02536 

2343 


ISZ 


MCNT 


1322 

02537 

5331 


JMP 


MFFLO 


1323 

02540 

7402 

MQVRTN, 

HLT 




1324 

02541 

5715 


JMP 

I 

XMOVE 


1325 

02542 

0000 

mfptr » 

0 




1328 



MCNT, 





1327 

02543 

0000 

GMOVE, 

0 




1328 

02544 

1715 


TAD 

I 

XMOVE 

/GET ARG FOR MOVE 
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1329 

02545 

2315 

ISZ XMOVE 

1330 

0254b 

5743 

JMP I GMOVE 

1331 

02547 

0201 

TMPFIL* FILENAME BASIC. TM 

1332 

02550 

2311 


1333 

02551 

0300 


1334 

02552 

2415 






/OS/8 

BASIC 1 

EDITOR 



PAL6-V7 

10/24/72 PAGE 13 

1335 

02563 

6203 






1336 

0256a 

0012 






1337 

02565 

0015 






1338 

02566 

0131 






1339 

02567 

0123 






1 3^0 

02570 

7001 






1341 

02571 

7644 






1342 

02572 

7614 






1343 

02573 

0200 






1344 

0257a 

7607 






1345 

02575 

7605 






1346 

02576 

2236 






1347 

02577 

7615 






1348 


2600 


PAGE 



1349 

02600 

0000 

GETCH, 

0 



/GET A CHARACTER FROM 

1350 

02601 

1034 


TAD 


oldflag 

/INPUT FROM A FILE ? 

1351 

02602 

7640 


SZA 

CLA 



1352 

02603 

5211 


J MP 


FILEIN 

/YES 

1353 

0260a 

6031 


KSF 




1354 

02605 

5204 


JMP 


• *1 


1355 

02606 

6036 


KKB 




1356 

02607 

0062 


AND 


0177 


1357 

02610 

5600 


JMP 

I 

GETCH 


1358 

02611 

2360 

filein, 

ISZ 


COUNT 

/anything in buffer ? 

1359 

02612 

5236 


JMP 


noread 

/YES, NO READ 

1360 

02613 

1070 


tad 


07200 

/SET BUFFER COUNT 

1361 

02614 

3360 


DC A 


COUNT 


1362 

02615 

1140 


TAD 


tDSKBUF 

/SET BUFFER POINTER 

1363 

02616 

3021 


DC A 


RDPTR 


1364 

02617 

1357 


TAD 


RD JMP 

/RESET JUMP 

1365 

02620 

3236 


DC A 


NOREAD 


1366 

02621 

4555 


JMS 

I 

[SWAP 

/GET 0S8 

1367 

02622 

1343 


TAD 


RDSIZE 

/ANY ROOM LEFT ? 

1368 

02623 

7450 


SNA 




1369 

02624 

5320 


JMP 


INERR 

/BAD END OF IFILF- 

1370 

02625 

7001 


I AC 




1371 

02626 

3343 


DC A 


RDSIZE 


1372 

02627 

4451 


JMS 

I 

DEVHAN 

/READ NEXT BLOCK 

1373 

02630 

0200 


200 




1374 

02631 

4000 


DSKBUF 



1375 

02632 

0000 

rdblok, 

0 




1376 

02633 

5320 


JMP 


INERR 


1377 

02634 

2232 


ISZ 


RDBLOK 

/BUMP BLOCK NUMBER 

1378 

02635 

4555 


JMS 

I 

[SWAP 

/AWAY WITH 058 

1379 

02636 

7402 

NOREAD, 

HIT 



/3W UNPACK JUMP 

1380 

02637 

5262 


JMP 


INCHR1 


1381 

02640 

5257 


JMP 


INCHR2 


1362 

02641 

1357 

INCHR3, 

tad 


RDJMP 

/RESET SWITCH 

1383 

02642 

3236 


DC A 


NOREAD 


1384 

02643 

1421 


TAD 

I 

RDPTR 

/GET LOW 4 BITS 

1385 

02644 

2021 


ISZ 


RDPTR 

/BUMP POINTER 

1386 

02645 

0124 


AND 


07400 

/MASK IT 

1387 

02646 

7112 


CUL 

RTR 


/SHIFT RIGHT 4 

1388 

02647 

7012 


RTR 




1389 

02650 

3023 


DC A 


TEMP 

/SAVE 


/OS/8 

BASIC EDITOR 



PAU8-V7 10/28/72 PAGE 13-1 

1390 

02651 

1 821(3 


TAD 

I 

RDTMP 

/GET HIGH 8 BITS 

1391 

02652 

0128 


AND 


07400 


1392 

02653 

1023 


TAD 


TEMP 

/COMBINE THEM 

1393 

02654 

7112 


CLL 

RTR 


/SHIFT NIGHT 8 

1398 

02655 

7012 


RTR 




1395 

02656 

5284 


JMP 


AND 1 7 7 

/GO FINISH 

1398 

02657 

1021 

INCHR2, 

TAD 


RDPTR 

/SAVE ADDR OF FIRST WORD 

1397 

02660 

3020 


DC A 


RDTMP 


1398 

02661 

2021 


ISZ 


RDPTR 

/BUMP POINTER 

1399 

02662 

1421 

INCHR1, 

TAD 

I 

RDPTR 

/GET NEXT CHAR 

1<I00 

02663 

2238 


ISZ 


NOREAD 

/BUMP SWITCH 

1801 

02664 

0062 

AN0177, 

AND 


0177 

/MASK 7 BITS 

1802 

02665 

1116 


TAD 


07746 

/CHECK FOR "Z 

1803 

02666 

7850 


SNA 




1808 

02667 

5272 


JMP 


ENDOLD 

/EOF 

1805 

02670 

1066 


TAD 


032 

/RESTORE CHAR 

1808 

02671 

5600 


JMP 

I 

GETCH 


1807 

02672 

3038 

ENDOLD, 

OCA 


OLDFLAG 

/KILL OLD FLAG 

1808 

02673 

1032 


TAD 


CHNFLAG 

/WAS IT A RETURN FROM RUN ? 

1809 

02674 

7650 


SNA 

^CLA 



1810 

02675 

5553 


JMP 

1 

[CMDOQNE/NO, JUST AN 010 COMMAND 

1811 

02676 

3032 


OCA 


CHNFLAG 

/kill Flag 

1812 

02677 

1377 


TAD 


(INFO-8168 

1813 

02700 

3010 


DCA 


X10 

/PICK UP NAME FROM INFO BLOCK 

1818 

02701 

1410 


TAD 

I 

X10 

/(WHICH IS SWAPPED OUT) 

1815 

02702 

3085 


DCA 


FNAME 


1818 

02703 

1410 


TAD 

I 

X10 


1817 

02704 

3086 


DCA 


FNAME* 1 


1818 

02705 

1810 


TAD 

I 

X 1 0 


1819 

02706 

308 7 


DCA 


FNAME+2 


1820 

02707 

1810 


TAD 

I 

X10 


1821 

02710 

3050 


DCA 


FNAME+3 


1822 

02711 

5553 


JMP 

I 

[CMODONE/DQNE WITH RETURN 

1823 

02712 

3050 

oldbad, 

DCA 


FNAME+3 

/TRY WITHOUT EXT 

1828 

02713 

2023 


ISZ 


TEMP 

/OR HAVE WE ALREADY ? 

1825 

02714 

5338 


JMP 


OLDTRY 

/NO, NOT YET 

1828 



IOERR , 





1827 

02715 

6212 

INERRX, 

C IP 


10 


1828 

02716 

8856 


JMS 

I 

0200 

/DISMISS USR 

1829 

02717 

0011 


11 




1830 



OUERR, 





1831 

02720 

3034 

INERR, 

DCA 


OLDFLAG 

/KILL OLD STATUS 

1832 

02721 

8555 


JMS 

I 

CSWAP 

/OUT WITH OSS 

1833 

02722 

8576 


JMS 

I 

CTYPE 

/PRINT MESSAGE 

1838 

02723 

2162 


BADFIl 



1835 

02724 

5556 


JMP 

I 

CMAINLUP 

1838 

02725 

1154 

OLD, 

TAD 


[TXT AREA/SCRATCH FILE 

1837 

02726 

4562 


JMS 

I 

[SETEUF 


1838 

02727 

303? 


DCA 


eoflin 

/ZERO LAST LINE NUM 

1839 

02730 

3080 


DCA 


EOFLINM 


1880 

02731 

8535 


JMS 

I 

[GETFN 

/GET FILE NAME 

1881 

02732 

7188 


CLL 

CM A 

»AL 

/SET RETRY COUNT 

1882 

02733 

3025 


PC A 


TfcMP 


1883 

02734 

1152 

OLDTRY, 

TAD 


[FNAMt 

/POINTER TO FILE NAME 

1888 

02735 

3382 


DCA 


SB 

/INTO LOOKUP CAUL 
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1445 

02736 

1052 


TAD 


DEVNUM 

/GET DEVICE NUMBER 

1446 

02737 

6212 


CIF 


10 


1447 

02740 

4456 


JMS 

I 

0200 

/LOOKUP PILE 

1448 

02741 

0002 


2 




1449 

02742 

0000 

SB , 

0 



/START GOES HERE 

1450 

02743 

0000 

RDSIZE, 

0 



/SIZE GOES HERE 

1451 

02744 

5312 


JMR 


OLDS AD 

/BAU FILE 

1452 

02745 

1342 


TAD 


SB 

/move block 

1453 

02746 

7450 


SNA 




1454 

02747 

2343 


ISZ 


RDSIZE 

/SET COUNT TO 4095 IF NOT D.A 

1455 

02750 

3232 


DCA 


RDBLOK 


1458 

02751 

7201 


CIA 

I AC 


/SET SWITCH 

1457 

02752 

3034 


DCA 


QLDFLAG 

/INPUT COMING FROM FILE 

1458 

02753 

7240 


CLA 

CMA 


/SET COUNT TO INITIALIZE READ 

1459 

02754 

3360 


DCA 


COUNT 


1460 

02755 

4555 


JMS 

I 

[SWAP 

/MOVE OSS 

1461 

02756 

5556 


JMP 

I 

[MAINLUP/DO OLD 

1462 

02757 

5237 

RDJMP, 

JMP 


NQREADM 

1463 

02760 

0000 

COUNT, 

0 




1464 

02761 

0000 

SETEOF, 

0 



/SET NEW EOF 

1465 

02762 

3376 


DCA 


EOFADR 

/SAVE ADDR 

1466 

02763 

6214 


RDF 



/GET FIELD 

1467 

02764 

1110 


TAD 


06201 


1468 

02765 

3374 


DCA 


EOFFLD 

/SAVE IT 

1469 

02766 

1120 


TAD 


077 

/STORE EOF 

1470 

02767 

3776 


DCA 

I 

EOFADR 


1471 

02770 

5761 


JMP 

I 

5ETE0F 


1472 

02771 

0000 

GETEOF, 

0 



/RETRIEVE EOF INFO 

1473 

02772 

1376 


TAD 


EOFADR 

/FIRST ADDR 

1474 

02773 

3023 


DCA 


TEMP 


1475 

02774 

6201 

EOFFLD, 

CDF 



/THEN THE FIELD 

1476 

02775 

5771 


JMP 

I 

GETEOF 


1477 

02776 

5000 

EOFADR , 

TXTAREA 
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1478 

02777 

3420 





1479 


3000 


PAGfc 



1480 



LINE, 



/THE TELETYPE LINE BUFFER. 

1481 

03000 

0000 

WSNAME 

010101451 6454133431 4264 >52441 1770, '6400 

1482 

03001 

0000 





1483 

03002 

0145 





1484 

03003 

6454 





1485 

03004 

3343 





1486 

03005 

4264 





1487 

0300b 

5244 





1488 

03007 

1770 




dX 

/IT WAS RAN f Jk 

1489 

03010 

6400 




1490 

03011 

5227 

start, 

jm/ 

KBASIT 

1491 

03012 

6213 


COTF GIF 

10 / 

- 

1492 

03013 

7201 


&U iac 


1 /*> 

1493 

03014 

3777* 


DC A 


/NO SWAP Lr 

1494 

03015 

6201 


bF 

/ 


1495 

0301b 

4776 


j M's 

<7700 

/FETCH USR 

1496 

03017 

0010 


i0 



1497 

03020 

6212 


C IF 



1498 

03021 

4775 


JMS I 

C2B0 

/RESET SYSTEM TABLES 

1499 

03022 

0013 


M 

/ tls 

A 


1500 

03023 

6046 



/SET TTY FLAG 

1501 

03024 

4300 


JMS 

GfcTOAT 

/SET UP TITLE 

1502 

03025 

2032 


ISZ 

CHNFLAG 

/TELL ABOUT RETURN FROM RUN 

1503 

0302b 

5774' 


JMP 

OLD 

/READ IN OLD WORK SPACE 

1504 

03027 

6046 

RBASIC 

• TLS 



1505 

03030 

1120 


TAD 

077 


1506 

03031 

3554 


DC A I 

(TXT AREA 

1507 

03032 

4300 


JMS 

GETDAT 

/SET UP TITLE 

1508 

03033 

1411 

FINDSV 

, TAD I 

XII 

/LOOK UP SOME SAVE FILES 

1509 

03034 

7450 


SNA 



1510 

03035 

5254 


JMP 

LU8UF 

/GO FIND BASIC. UF 

1511 

0303b 

3243 


DC A 

XXXXSV 

/SAVE POINTER TO NAME 

1512 

03037 

7201 


CIA I AC 



1513 

03040 

6212 


C IF 

10 


1514 

03041 

4775 


JMS I 

(200 


1515 

03042 

0002 


2 



1516 

03043 

0000 

XXXXSV 

# 0 



1517 

03044 

0000 


0 



1518 

03045 

5275 


JMP 

NG 


1519 

0304b 

7001 


I AC 



1520 

03047 

6211 


CQF 

10 


1521 

03050 

1243 


TAD 

XXXXSV 


1522 

03051 

3410 


DC A I 

X 1 0 

/SAVE BLOCK PLUS 1 

1523 

03052 

6201 


CDF 


/IN INFO AREA 

1524 

03053 

5233 


JMP 

FINDSV 


1525 

03054 

7201 

LueuF, 

CLA I AC 


/FIND BASIC, UF 

1526 

03055 

6212 


C IF 

10 


1527 

0305b 

4775 


JMS I 

(200 


1528 

03057 

0002 


2 



1529 

030b0 

3333 


bufn 



1530 

03061 

0000 


0 



1531 

03062 

5265 


JMP 

.♦3 

/OK IF MISSING 

1532 

03063 

1260 


TAD 

• *3 




/OS/8 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1552 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 
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03064 

7001 


I AC 



/SAVE BLOCK *1 

03065 

6211 


CDF 


10 


03066 

3410 


DC A 

I 

*10 


03067 

6201 


CDF 




03070 

7201 


cla 

I AC 


/TYPE WITH NO CARRIAGE RETURN 

03071 

4576 


JMS 

I 

(TYPE 

/"old or new -- » 

03072 

3350 


OLDNEIai 



03073 

4555 


JMS 

I 

[SWAP 


03074 

5773' 


JMP 


MAINLUP 


03075 

4576 

NG » 

JMS 

I 

CTYPE 

/PART OF SYSTEM MISSING 

03076 

3337 


MISING 



03077 

5772' 


JMP 


7605 


03100 

0000 

GETDAT, 

0 



/PUT 0S8 DATE INTO THE TITLE 

03101 

6211 


CDF 


10 


03102 

1771' 


TAD 


7666 

/GET OATE WORD 

03103 

6201 


CDF 




03104 

3024 


DC A 


TEMPS 

/SAVE IT 

03105 

1024 


TAD 


TEMPS 


03106 

7450 


SNA 




03107 

5700 


JMP 

I 

GETDAT 

/NO OATE 

03110 

0124 


AND 


07400 

/GET MONTH 

03111 

7106 


CLl 

RTL 


/SHIFT SOME 

03112 

7006 


rtl 




03113 

7006 


RTL 




03114 

1370 


TAD 


(MONTHS' 

•3 

03115 

3012 


DC A 


xia 


03116 

1367 


TAD 


(DATE-1 

/set up POINTER TO OATE 

03117 

3013 


DC A 


¥13 


03120 

1024 


TAD 


TEMPS 

/GET DAY 

03121 

7012 


RTR 




03122 

7010 


RAR 




03123 

0100 


and 


037 


03124 

1366 


TAD 


(NUMS-1 

/GET NUMBERS 

03125 

3023 


DC A 


TEMP 


03126 

1423 


TAD 

I 

TEMP 


03127 

3413 


DC A 

I 

X 1 3 

/INTO DATE 

03130 

1412 


TAD 

I 

X1S 

/GET MONTH CHARS 

03131 

3413 


DC A 

I 

X 1 3 


03132 

1412 


TAD 

I 

X12 


03133 

3413 


DC A 

I 

x 1 3 


03134 

1024 


TAD 


TEMPa 

/GET YEAR 

03135 

0365 


AND 


(7 


03136 

1364 


TAD 


(a i 


03137 

7106 


CLL 

RTL 



03140 

7006 


RTL 




03141 

7006 


RTL 




03142 

2013 


ISZ 


X 1 3 

/THE WORD WITH -7 IS THERE 

03143 

3413 


DC A 

I 

X 1 3 

/STORE LAST DIGIT OF YEAR 

03144 

5700 


JMP 

I 

GETDAT 
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1582 

03164 

0021 




1583 

03165 

0007 




1584 

03166 

3227 




1585 

03167 

1324 




1586 

031?0 

3175 




1587 

03171 

7666 




1588 

03172 

7605 




1589 

03173 

0604 




1590 

03174 

2725 




1591 

03175 

0200 




1592 

03176 

7700 




1593 

03177 

7746 




1594 


3200 


PAGE 

/-JAN 

1595 

03200 

1653 

MONTHS, 

165314257 

1596 

03201 

4257 



/-FEB 

1597 

03202 

1647 


164774643 

1598 

03203 

4643 




1599 

03204 

1656 


165674263 

/-MAR 

1600 

03205 

4263 




1601 

03206 

1642 


164276263 

/-APR 

1602 

03207 

6263 




1603 

03210 

1656 


165674272 

/-MAY 

1604 

03211 

4272 




1605 

03212 

1653 


165376657 

/-JUN 

1606 

03213 

6657 




1607 

03214 

1653 


165376655 

/- JUL 

1608 

03215 

6655 




1609 

03216 

1642 


164276650 

/-AUG 

1610 

03217 

6650 




1611 

03220 

1664 


166474661 

/-SEP 

1612 

03221 

4661 




1613 

03222 

1660 


166074465 

/-OCT 

1614 

03223 

4465 




1615 

03224 

1657 


165776067 

/-NOV 

1616 

0 3225 

6067 




1617 

03226 

1645 


164574644 

/-DEC 

1618 

03227 

4644 




1619 

03230 

2122 

NUMS, 

2122!2123j212ar2125;212fc!2127;2130;213i;2132 

1620 

03231 

2123 




1621 

03232 

212« 




1622 

03233 

2125 




1623 

03234 

2126 




1624 

03235 

2127 




1625 

03236 

2130 




1626 

03237 

2131 




1627 

03240 

2132 




1628 

03241 

2221 


222i;2222;2223!222a;2225;222fe;2227;2230!223i 

1629 

03242 

2222 




1630 

03243 

2223 




1631 

03244 

2224 




1632 

03245 

2225 




1633 

03246 

2226 




1634 

03247 

2227 




1635 

03250 

2230 




1636 

03251 

2231 
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1637 

03252 

2232 


22327 232 172322 7 2323? 2328 7 2 32b ? 2336 ? 2327 7 2330 

1638 

03253 

2321 



1639 

0325a 

2322 



1680 

03255 

? 3 ?.S 



1681 

03256 

2324 



1692 

03257 

2325 



1683 

03260 

2326 



1688 

03261 

2327 



1685 

03262 

2330 



1686 

03263 

2331 


233 1123327 282 112422 

1697 

03264 

2332 



1648 

03265 

2421 



1689 

03266 

2422 



1650 

03267 

3277 

NAMLST, 

BASICN 

1651 

03270 

3303 


BCOMPN 

1652 

03271 

3307 


BLOADN 

1653 

03272 

3313 


BRTSN 

1654 

03273 

3317 


BAFN 

1655 

03274 

3323 


BSFN 

1656 

03275 

3327 


BFFN 

1657 

03276 

0000 


0 

1658 

03277 

0201 

BASICN, 

filename BASIC. sv 

1659 

03300 

2311 



1660 

03301 

0300 



1661 

03302 

2326 



1662 

03303 

0203 

BCOMPN, 

filename bcomp.sv 

1663 

03304 

1715 



1664 

03305 

2000 



1665 

03306 

2326 



1666 

03307 

0214 

BLOADN, 

filename bload.sv 

1667 

03310 

1701 



1668 

03311 

0400 



1669 

03312 

2326 



1670 

03313 

0222 

BRTSN, 

filename brts.sv 

1671 

03314 

242 S 



1672 

03315 

0000 



1673 

03316 

2326 



1678 

03317 

0201 

BAFN, 

filename basic, af 

1675 

03320 

2311 



1676 

03321 

0300 



1677 

03322 

0106 



1678 

03323 

0201 

BSFN, 

filename basic, sf 

1679 

03324 

2311 



1680 

03325 

0300 



1681 

03326 

2306 



1682 

03327 

0201 

BFFN, 

filename basic. ff 

1683 

03330 

2311 



1684 

03331 

0300 



1685 

03332 

0606 



1686 

03333 

0201 

bufn, 

filename basic. uf 

1687 

03334 

2311 



1688 

03335 

0300 



1689 

03336 

2506 



1690 

03337 

5257 

MISING, 

5257 788607566175546; 65867 0168? 7268 7 65867 5600 

1691 

03340 

4460 




/Q5/8 

1692 

1693 
1698 

1695 

1696 

1697 

1698 

1699 

1700 

1701 

1702 

1703 

1 704 

1705 

1706 

1707 

1708 

1709 

1710 

1711 

1712 

1713 
171« 

1715 

1716 

1717 

1718 

1719 

1720 

1721 

1722 

1723 
172a 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 
173a 

1735 

1736 

1737 

1738 

1739 

1780 

1781 

1782 

1783 
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03341 5661 

03382 5586 

03383 6586 

03388 0168 

03385 7264 

03386 6586 

03387 5600 

03350 5786 OLDNEH, 57861 7001 1 60631 01 60 1 5585> 1 6 1 6 ; O 

03351 7001 

03352 6063 

03353 0160 

03354 5585 

03355 1616 

03356 0000 

SS 

00133 0587 

00138 0533 

00135 1600 

00136 1282 

00137 1888 

00140 4000 

00141 1867 

00142 0041 

00143 1215 
00188 8801 

00185 1332 

00186 1251 

00187 3004 

00150 3003 

00151 0048 

00152 0085 

00153 0600 

00158 5000 

00155 2112 

00156 0608 

00157 0731 

00160 0563 

00161 3001 

00162 2761 

00163 2322 

00168 2771 

00165 3000 

00166 1200 

00167 0200 
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BLOADN 
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BRTS 

1670 







BRTSN 

1653 
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BSFN 

1655 

1678# 






BSKIP 

858# 

862 






bufn 
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1686# 
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540# 
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BVEBYE 

122 

537# 

835 





CARRET 

125 

205# 






CHNFLA 
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846 

1406 

1411 

1502 



CMDDON 

361# 

568 

726 

749 

751 

958 

965 

coflag 

49# 

724 

838 





COMLUP 

594# 

601 






CQMMAN 
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592# 






COMTBL 
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CONV 
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1358 
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978 
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1032 
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1374 
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646 


889 
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1422 
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1404 
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EOFAOR 

1465 

1470 

1473 
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eofflo 

1468 
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5b# 
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1507 

1545# 
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GETEOF 
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754# 

778 

782 

786 

800 

816 

817 

984 


GETFN 

844# 

893 

896 

904 

918 

953 

963 

1123 

1440 


GETHAN 

873 

878# 









GETLIN 

113# 

143 

172 

222 

366 

922 





getnam 

863 

870 

928# 

939 

945 

951 





getnc 

682# 

696 

709 

712 

713 

729 

734 

858 

938 

944 

GFN 

1118 

1122# 









GFRET 

803 

816# 

821 

824 







GMOVE 

1308 

1310 

1312 

1314 

1327# 

1330 





HANDLR 

23# 

878 

1166 

1255 

1268 






HEADIN 

633# 

647 

723 

1104 







HNDLOK 

1163 

1176# 









IGNORE 
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150 
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200 

204 

213 




INCHR1 

1380 

1399# 









INCHRS 

1381 
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INCHR3 

1382# 










INERR 

1369 
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1431# 
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1427# 
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1412 
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886 

1132 

1155 

1173 

1426# 
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165# 









JMPINS 

982 

1002 

1044# 








LASTDI 

768 

787# 









LASTWD 

513 

531# 









LEFTTX 

770 

804# 









LINE 
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215 

375 

377 

455 

457 

458 

599 

686 

718 


719 

1100 
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1105 

1480# 






LINENO 

53# 

254 

261 

269 

271 

278 

286 

330 

385 

393 


395 

454 

456 

580 

582 

583 

585 

1193 

1208 


linftx 

772 

822# 









LIST 

610 

718# 









LISTNH 

722 

727# 









LNOIG 

163 

231# 

237 

238 

244 

270 

287 

737 



LSTLUP 

748# 

753 









LUBUF 

1510 

1525# 









LWREOF 

436 

448# 









MAINLU 

365# 

372 

452 

472 

536 

607 

1435 

1461 

1541 


MCNT 

1315 

1321 

1326# 
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1309 
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MFPTR 
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1317 
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08171 

93# 

340 








08201 

96# 

406 

420 

483 

502 

745 

975 

H67 


08211 

94# 

349 








072 

79# 

710 








07200 

80# 

1360 








07201 

76# 

990 








07400 

108# 

262 

279 

1014 

1386 

1391 

1553 



07405 

90# 

166 








07800 

81# 

980 

1034 

1060 






07807 

68# 









07834 

100# 

132 








077 

104# 

148 

299 

306 

327 

650 

654 

694 

711 


812 

1191 

1469 

1505 






07700 

69# 

185 

219 

657 

855 

1147 




07701 

91# 

434 

776 

1168 






07708 

77# 

7 36 








07741 

89# 

511 

653 







07745 

105# 

162 








07748 

102# 

1402 








07780 

109# 

255 

272 







07781 

72# 

69 7 

830 







07784 

73# 

705 








07788 
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123 








07770 

95# 
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405 
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520 

528 




07771 

107# 

242 
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07772 
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129 
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07774 

98# 

578 

936 
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333 
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PTRFLD 

407 

463# 

467 
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769 
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976 
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997# 
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1043 



putfil 
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995 

1142 
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983 

999# 
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1042 

1044 
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1377 

1455 







RDJMP 
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1462# 
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1399 



RDSIZE 
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1450# 
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rdtmp 
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1390 

1397 







RENAME 

624 

952# 








RIGHTY 

178 

184# 








RITETX 

771 

809# 
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616 
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RUNDO 

1253# 









runfla 
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1117 
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1144 

1156 





SAME1S 

1195 

1203# 








SAME2N 

1210 

1217# 








SAVrtlK 

1125 

1130# 
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1135 

1235 





SAVE 

614 

1119# 








SAVFLA 

845 

850 

891 

905 

927# 






779 


iai7 


401 

740 


Sb 

1444 

1449# 

1452 








SCRATC 

564# 

616 









search 

1185# 

1202 
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449 

505 
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1464# 
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SF 

1678 
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1490# 
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540 
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1046# 

1058 

1141 

1143 


1179 

1366 

1378 

1432 

1460 

1540 
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979 

1009 
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1017 

1033 

1037 

1039 

1041 

1070 


1077 

1083 









SWAPT2 

27# 

981 

1018 

1035 

1074 

1078 





SWAPT3 

26# 

1015 
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1038 

1061 

1076 

1079 

1080 



SWAPT4 

29# 

998 

1004 

1011 

1040 

1064 

1071 

1072 
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1084 

SWAP2 

1049 

1052 

1055 

1059# 

1062 

1063 

1065 

1066 

1085 


swpfld 

1067 
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3WPLUP 

1069# 

1081 









SWPNUM 

67# 

538 

1047 








TCRLF 
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301 

308 
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TEMP 
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280 
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345 
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410 

417 

424 
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437 

459 
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477 

480 
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507 

523 

524 
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586 

593 
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596 
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604 
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1442 
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TMP2FL 
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UF 
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874# 
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VERSON 

17# 

30 
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WHAT 
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924 








WHUPS 

1265 
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1286# 








WRSLOK 

1024# 

1029 

1134 
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1481# 










WSSAVE 

626# 

1107 









XMOVE 

1247 
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1205 




457 






449 

505 

565 

960 

1437 


398 

743 





390 

481 





375 

455 

456 




371 






366 

922 





293 

748 





221 

741 





175 

215 

377 

599 

686 

1105 

189 

207 

314 

362 

634 

646 

163 

737 





157 

194 

225 

227 

752 


141 

170 

363 

534 

605 

644 


117 

880 

652 

731 

720 

876 

874 

1102 

1306 

1292 

1290 

1288 


1241 


1580 


1180 

1506 

1141 


920 


1243 1245 


1410 1422 

1143 1179 


1433 1538 


1413 


1366 


1542 
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5 

a 

5 

6 
7 
6 
9 

10 

11 

12 

13 

14 

15 

16 
17 


/OS/8 BASIC COMPILER 
/ 

/DEC-S8-LBASA-A-LA 

/ 

/COPYRIGHT, 1972 
/ 

/DIGITAL EQUIPMENT CORPORATION 
/MAYNARD, MASSACHUSETTS 01754 
/ 

/AUGUST 19, 1972 
/ 

/HANK MAURER 
/ 

/ 

/ 

/ 


0100 


VERSON* 1 00 
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18 


0006 

*6 

19 

00006 

6635 

XABORT, ABORT 

20 

00007 

0100 

VERS, VERSON 

21 

00010 

7603 

X10, INFO-1 

22 

00011 

7325 

Xll, NAMLST-1 

23 

00012 

7577 

X 12, INFO-5 

24 

00013 

7773 

X13, BOSINFO-1 

25 

00014 

1133 

OSTACK, STACKO-1 

26 

00015 

7117 

STACK, STACKA-1 

27 

00016 

2571 

NEXT, FREE-1 

28 

00017 

0000 

CHRPTR , 0 

29 

00020 

0000 

NCHARS, 0 

30 

00021 

7774 

TEMP, -4 

31 

00022 

0000 

TEMP2, 0 

32 

00023 

0000 

DECPT , 0 

33 

00024 

0000 

NDIGIT, 0 

34 

00025 

0000 

EXPON, 0 

35 

00026 

0000 

TYPE, 0 

36 

00027 

0000 

symbol, 0 

37 

00030 

0000 

LEFT, 0 

38 

00031 

0000 

OLDOP, 0 

39 

00032 

0000 

NEWOP, 0 

40 

00033 

0000 

TMPCNT, 0 

41 

00034 

0003 

TMPLVL, 3 

42 

00035 

0000 

STMPCT , 0 

43 

00036 

0001 

STMPLV, 1 

44 

00037 

0000 

STPTR, 0 

4b 

00040 

7 37 7 

VARCNT, -401 

46 




47 

00041 

7377 

SVCNT, -401 

48 

00042 

7737 

ACNT, -41 

49 

00043 

7737 

SACNT, -41 

50 

00044 

0000 

LOCTRH, 0 

51 

00045 

0000 

LOCTRL, 0 

52 

00046 

0000 

BLOCK, 0 

53 

00047 

0000 

HIFLO, 0 

54 

00050 

0000 

BRTS, 0 

55 

00051 

0000 

DLSIZE, 0 

56 

00052 

0000 

ABORTX , 0 

57 

00053 

0000 

LINEH, 0 

58 

00054 

0000 

LINEL, 0 

59 

00055 

0000 

MODE, 0 

60 

00056 

0000 

TYPE 1 , 0 

61 

00057 

0000 

SYMBL1, 0 

62 

00060 

0000 

QLOSTK, 0 

63 

00061 

0000 

ARGCNT , 0 

64 



PCRLF, 

65 



DACNY, 

66 



FORJMP, 

67 



NOSN , 

68 



COLON, 

69 

000 62 

0000 

JAROND, 0 

70 

00063 

0000 

IFNREG, 0 

71 

00064 

0000 

SSREG1, 0 

72 

00065 

0000 

SSREG2, 0 


/ADDR OF ABORT ROUTINE 
/VERSION NUMBER 
/AUTO INDEX REGISTERS 


/OPERAND STACK POINTER 
/GENERAL STACK POINTER 
/NEXT FREE LOCATION 
/INPUT BUFFER POINTER 
/SIZE OF INPUT LINE 


/SET 1 IF , 

/NUM DIGITS RIGHT OF . 

/EXPONENT FOR NUM CONV 

/TYPE OF CURRENT OPERAND 

/SYMBOL NUMBER OF CUR. OPERAND 

/LEFT SIDE SWITCH 

/OLD OPERATOR 

/NEW OPERATOR 

/TEMP COUNTER 

/TEMP LEVEL 

/TEMP COUNT (STRINGS) 

/TEMP LEVEL (STRINGS) 

/POINTER TO S.T, ENTRY 
/NUMBER OF POSSIBLE NUMERIC 
/variables, literals, AND TEMPS 

/SAME FOR STRING VARS 
/ARRAY COUNTER 
/STRING ARRAY COUNTER 
/HIGH ORDER LOCATION COUNTER 
/LOW ORDER " " 

/START BLOCK OF TEMP FILE 
/HIGHEST CORE FIELD 
/START OF BRTS.SV 
/NEG. SIZE OF DATA LIST 
/START OF EDITOR 
/LINE NUMBER (HIGH) 

/LINE NUMBER (LOW) 

/INTERPRETER MODE 

/TYPE AFTER JMS GET A 1 

/SYM # AFTER JMS GETA1 

/STACK SAVER FOR DEF 

/ARG COUNTER FOR DEF 

/CH SWITCH FOR PRINT STMT 

/ARG COUNT FOR UDEF STMT 

/FOR LOOP JUMP INSTS 

/STMT NUMBER PRESENT SWITCH 

/ S SWITCH FOR GETFN ROUTINE 

/END OF OEF ADOR GOES HERE (INDIRECTLY) 

/CONTENTS OF IFN REG 

/EXECUTION TIME CONTENTS 

/OF THE SS REGISTORS 
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73 

000 6b 

7117 

STKLVL* STACKA' 

7a 

00067 

0000 

FINOEX, 0 

75 

00070 

0000 

SETFLD, 0 

76 

00071 

6211 

lufld, cof 

77 

00072 

5470 

JMP I 

7ft 

00073 

5706 

QERMSGr ERMSG 

79 

00074 

0547 

QLOOSN , LODSN 

80 

00075 

6736 

QCHKWDj) CHKwD 

8 1 

00076 

5542 

9MQDSET,MQD5ET 

82 

00077 

3632 

QSNUMi SNUM 

83 

00100 

6446 

QOUTWRD , OUTWRD 

8a 

00101 

4021 

QSAvECP , S A VECP 

85 

00102 

4035 

QGETC, GETC 

86 

00103 

4010 

QSETCWB, GETCWB 

87 

00104 

4027 

QRESTCPf RESTCP 

88 

00105 

2600 

QEXPR, EXPR 

89 

00106 

3400 

QQUTOPR , OUTOPR 

90 

00107 

0201 

qnewlin,newlin 

91 

00110 

0205 

QREMARK , REMARK 

92 

00111 

3517 

GGETA1, GET A 1 

93 

00112 

4303 

QLOADSS, LOADSS 

9a 

00113 

6555 

QCHECKC , CHECKC 

95 

00114 

5600 

ogetnam,getnam 

96 

00115 

4102 

QCOMARP,COMAPP 

97 

00116 

2400 

OLOOKUP, LOOKUP 

98 

00117 

2200 

0LUKUP2,LUKUP2 

99 

00120 

4117 

QLOAQ, LOAD 

100 

00121 

4062 

QPUSH, PUSH 

101 

00122 

4052 

QPOP, POP 

102 

00123 

4073 

QPUSHO, PUSHO 

103 

00124 

4251 

QS A V AC , SAVAC 

10 a 

00125 

4000 

QBACK 1 , BACK 1 

105 

00126 

5000 

QNUMBER, NUMBER 

106 

00127 

5455 

QSTRING, STRING 

107 

00130 

3600 

OLETTER, LETTER 

108 

00131 

3616 

OOIGIT , DIGIT 

109 

00132 

3336 

QNOREGS, NOREGS 

110 

00133 

0400 

9400, 400 

111 



NAME 1 , 

112 

00134 

0000 

WORD 1 , 0 

113 



NAME2, 

1 1 a 

00135 

0000 

WOR02, 0 

115 



NAME3, 

116 

00136 

0000 

W0RD3, 0 

117 

00137 

0000 

ACO, 0 

118 

00140 

0000 

OP1, 0 

119 

00141 

0000 

OP2 , 0 

120 

00142 

0000 

OPS, 0 

121 

00143 

0000 

OPO, 0 


/STACK BASE LEVEL 
/FOR LOOP INDEX 
/FIELD CHANGE RTNE FOR LUKUP 
/FIELD OF ENTRY FOR LUKuPE 

/SUBROUTINE POINTERS 


/VARIABLE OH F1JNCT NAME 
/3 WORD LITERAL BUFFER 


/FAC OVERFLOW WD 
/4 WORD ARG FOR a NUMBER " 
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122 

7604 


INFO=7604 

/INFORMATION AREA 

123 


/INFO 

STARTING BLOCK 

♦1 OF BASIC, $V 

12« 


/ INFO+1 

STARTING BLOCK 

+1 OF 8CQMP.SV 

125 


/ INFO+2 

STARTING BLOCK 

+1 OF dLOAD.SV 

126 


/ INFO+3 

STARTING BLOCK 

+ 1 OF 0RT5 * S V 

127 


/XNFO+4 

STARTING BLOCK 

♦ 1 UF 8 AS I C 9 AF 

128 


/INFQ+5 

STARTING BLOCK 

♦1 OF BASIC. SF 

129 


/ INFO+6 

starting block 

♦1 OF BASIC. FF 

130 


/INFQ+7 

STARTING BLOCK 

♦1 OF BASIC. UF 

131 


/INFO* 1 0 STARTING BLOCK 

OF BASIC, TM 

132 


/INFOM1 

SIZE IN BLOCKS 

OF BASIC. TM 

133 


/INFO+12 INPUT HANDLER 

ENTRY ADDRESS 

13# 


/INFO* 1 3 SIZE AND DEVICE NUMBER OF INPUT FILE 

135 


/INFO+14 STARTING BLOCK 

OF INPUT FILE 

136 


/INFO+15 

THROUGH 


137 


/INFO+ae 

NAME OF WORKSPACE 

138 


/ 



139 


/ 



1#0 

7774 


B0SINF0«7774 

/80S PARAMETER AREA 

141 

1600 


EOTSIZ* 1600 

/SIZE OF BASIC, SV 

142 

3012 


EOTBGN»3012 

/RESTART FOR EDITOR 

143 

1712 


ERMSG2«1712 

/POST PROCESSOR ERROR SWITCH 

144 

7570 


EOST»7570 

/UPPER LIMIT FOR SYMBOL TABLE 

145 

4400 


INDEVH«4400 

/INPUT DEVICE HANDLER 

146 

7000 


LINE»7000 

/LINE BUFFER 

147 

0120 


LINMAX«120 

/MAXIMUM BASIC STMT 

148 

7120 


ST ACK A>7 1 20 

/MAIN STACK 

149 

0060 


STAKSZ«60 

/SIZE OF MAIN STACK 

150 




/OPERAND STACK DEFINED IN-LINE 

151 

7200 


iNBuFs;e00 

/INPUT BUFFER 

152 


/ 



153 


/ 



154 


/FIELD ONE STUFF 


155 


/ 



156 


/ 



157 

0000 


OUBUF»0 

/OUTPUT BUFFER 

158 

0400 


VARST *400 

/VARIABLE SYMBOL TABLE 

159 

1036 


$VARST*VARST*436/STRING VAR SYMBOL TABLE 

160 

2132 


ARAYST«SVARST+1074/ARRAY symbol table 

161 

2332 


S AR YS T » AR A YST+200/ STRING ARRAY SYMBOL TABLE 

162 

2532 


SNUMS»SARYST+200/STMT number buckets 

163 

2556 


TEMPS*SNUMSt24 

/NUMFRIC TEMP BUCKET 

164 

2560 


STEMPS»TEMPS+2 

/STRING TEMP BUCKET 

165 

2562 


LITRL*STEMPS*2 

/NUMERIC LITERAL BUCKET 

166 

2564 


SLITRL«LITRL*B 

/STRING LITERAL BUCKET 

167 

2566 


DATLST«SLITRL+2 

/DATA LIST 

168 

2570 


FUNCTN*DATLST+2 

/FUNCTION LIST 

169 

2572 


FREE»FUNCTN+2 

/START OF FRFE CORE 
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170 


/ 

171 


/ 

172 


/ 

173 

0000 


174 

0400 


175 

1000 


17b 

1400 


177 

2000 


178 

2400 


179 

3000 


180 

3400 


181 

4000 


182 

4400 


183 

5400 


184 

b000 


185 


/ 

18b 


/ 

187 

5000 


188 

5001 


189 

5002 


190 

5003 


191 

5004 


192 

5005 


193 

500b 


194 

5007 


195 

5010 


19b 


/ 

197 


/ 

198 

b400 


199 

8440 


200 

8500 


201 

8540 


202 

8800 


203 

8b40 


204 

8700 


205 

8740 


20b 


/ 

207 


/ 

208 

0000 


209 

0400 


210 

1000 


211 

2000 


212 

2400 


213 

8400 


214 

6440 


215 

6500 


21b 

6640 


217 

6700 


218 


/ 

219 


/ 

220 

7401 


221 

7421 


222 

7441 


223 

7461 


224 

7414 



INTERPRETED OPCODES 

MEMORY REFERENCE SET 

FAOD*0000 

FSUB*0400 

FMP V *1000 

FOIV*1400 

FLQA*2000 

FST A*2400 

FISUB*3000 

FIDIV*3400 

1831*4000 

LSS2*4400 

JEOF»5400 

LOADSN«8000 

JOC CLASS 

JSUB*5000 

JUMP«5001 

JGE*5002 

JNE»5003 

JGT *5004 

JLT-5005 

J£Q*500b 

JLE»500T 

JFORs5010 

ARRAY CLASS 

Aisue>b400 

AFADQ*6440 

AFSUB«b500 

AFMPY«6540 

AFDIV»6600 

AFLDA*b640 

AFST A*6700 

A 10 IV *67 40 

string class 

SCON«F AOO 

SCOMP«FSUB 

sreao»fmpy 

SLOADsFLDA 
SSTORE»FSTA 
SACON* AISUB 
SACOMP»AFAOO 
SARE AO* AFSUB 
SALOAD* AFLDA 
SASTOR*AFSTA 

OPERATE class 

SETJF*7401 

RN00«7421 

ST0P-7441 

SR0L*74bl 

CHN*7414 
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225 

7521 

NHDL*752 1 

226 

7434 

CLQSEF *7434 

227 

7474 

OPENAVI7474 

228 

7454 

0PENAF«7454 

229 

7534 

OPENNV»7534 

230 

7514 

0PENNF»7514 

231 

7501 

CLRFN»7501 

232 

7402 

F ILENO»7 402 

233 

7403 

FNEG«7403 

23^ 

7404 

RETs7404 

235 

7405 

R£ST»7405 

23b 

7406 

LSS1 *C*7406 

237 

7407 

LSS2AC-7407 

238 

7410 

FESC»7410 

239 

7411 

REA0«74U 

240 

7412 

WRITE«7412 

241 

7413 

SWRITE»7413 

242 

7561 

SM00E»7561 

243 

7541 

MMOOE-7541 

244 

7416 

FUNC1«7416 

245 

7417 

FUNC2«7417 

246 

7400 

FUMC3»7400 

247 

7415 

FIJNC4«7415 

248 

7540 

l)SE»7540 
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249 



/ ASSEMBLE LINE 



250 


0201 


awORDI+45 

/QRG past biggest string lit 

251 

00201 

4502 

newlin» 

JMS I 

QGETC 

/any chars LEFT ? 

252 

00202 

5205 


JMP 

REMARK 

/NO, LINE ENOEO ok 

253 

00203 

4473 


JMS I 

QERMSG 

/EXTRA CHARACTERS 

254 

00204 

3003 


3003 



255 

00205 

3062 

remark, 

OCA 

NOSN 

/CLEAR STMT NUMBER SWITCH 

256 

00206 

1034 


TAD 

TMPLVl 

/RESET TEMP LEVELS 

257 

00207 

3033 


OCA 

TMPCNT 

/FOR NUMERIC 

258 

00210 

1036 


TAD 

STMPLV 

/AND STRING 

259 

00211 

3035 


OCA 

STMPCT 

/TEMPORARIES 

260 

00212 

1377 


TAD 

CSTACKQ- 

'I 

261 

00213 

3014 


DC A 

OSTACK 

/RESET STACK POINTERS 

262 

00214 

1066 


TAD 

STKLVL 

/(CHANGED BY FOR LOOPS! 

263 

00215 

3015 


DCA 

STACK 


264 

00216 

1376 


TAD 

CLINE-1 

/GET THE NEXT LINE 

265 

00217 

3010 


DCA 

*10 


266 

00220 

1375 


TAD 

(-LINMAX/MAX SIZE 

267 

00221 

3021 


OCA 

TEMP 


268 

00222 

4774' 

getlin, 

JMS 

ICHAR 

/GET NEXT CHAR 

269 

00223 

5235 


JMP 

GOTCR 

/CR 

270 

00224 

3410 


DCA I 

*10 

/PUT INTO LINE SUFFER 

271 

00225 

2021 


ISZ 

TEMP 

/SUMP MAX COUNTER 

272 

00226 

5222 


JMP 

GETLIN 


273 

00227 

4473 


JMS I 

QERMSG 

/LINE TOO LONG 

274 

00230 

1424 


1424 



275 

00231 

4774' 


JMS 

ICHAR 

/SKIP REST OF LINE 

276 

00232 

5235 


JMP 

GOTCR 


277 

00233 

7200 


CIA 



278 

00234 

5231 


JMP 

• *3 


279 

00235 

1010 

GOTCR, 

TAD 

*10 

/COMPUTE SIZE 

280 

00236 

7040 


CM A 



281 

00237 

1376 


TAD 

CLINE-1 

/OF LINE 

282 

00240 

3020 


DCA 

NCHARS 


283 

00241 

1376 


TAD 

CLINE-1 

/SETUP LINE POINTER 

284 

00242 

3017 


OCA 

CHRPTR 


285 

00243 

1045 


TAD 

LOCTRL y 

,/PUT LOCATION COUNTER 

286 

00244 

7421 


7421 

/ 

/INTO MQ f 

287 

00245 

7330 


CLA CLl 

cml r/r 

/ALLOW DEFINITION 

288 

00246 

4477 


JMS I 

QSNUM 

/GET THE STATEMENT NUMBER 

289 

00247 

5267 


JMP 

NQSNUM 

/NO STMT NUMBER ON THIS LINE 

290 

00250 

2062 


ISZ 

NOSN 

/SET STMT NUMBER PRESENT 

291 

00251 

4476 


JMS I 

QMODSET 

/IN N MODE AT ALL LABELS 

292 

00252 

4532 


JMS I 

QNOREGS 

/FORGET REG CONTENTS 

293 

00253 

1134 


TAD 

W0RD1 

/SAVE NEW LINE NUMBER 

294 

00254 

3053 


DCA 

LINEN 


295 

00255 

1135 


TAD 

W0RQ2 


296 

00256 

3054 


DCA 

LINEL 


297 

00257 

4070 


JMS 

SETFLD 

/GET TO FIELD OF ENTRY 

298 

00260 

1422 


TAD I 

TEMPS 

/GET DEFINEO/REFNCED BITS 

299 

00261 

1044 


TAD 

LOCTRH 

/ADD IN HIGH ORDER LOCATION CTR 

300 

00262 

3422 


DCA I 

TEMPS 

/PUT IT AWAY 

301 

00263 

2022 


ISZ 

TEMPS 


302 

00264 

1045 


TAD 

LOCTRL 

/NOW PUT IN LOW ORDER LOCATION 

303 

00265 

3422 


DCA I 

TEMPS 
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30a 

00266 

6201 


CDF 




305 

00267 

4773' 

NQSNUM, 

JMS 


K6QCHK 

/CHECK FOR “C OR “0 

306 

00270 

1372 


TAD 


(KEYING 

■ 1 

307 

00271 

3010 


DC A 


X10 

/SET UP FOR KEYWORD SEARCH 

306 

00272 

4501 


JMS 

I 

QSAVECP 

/SAVE CHAR POS 

309 

00273 

1410 

KWLQQP , 

TAD 

I 

X10 

/GET NEXT CHAR OF KEYWORD 

310 

00274 

7500 


SMA 




311 

00275 

5314 


JMP 


GOTKW 

/OK, THIS IS THE KU 

312 

00276 

3021 


DC A 


TEMP 


313 

00277 

4502 


JMS 

I 

QGETC 

/GET NEXT CHAR FROM STMT 

3ia 

00300 

5304 


JMP 


NOGOOD 

/THIS ISN'T IT 

315 

00301 

1021 


TAD 


TEMP 

/IS THIS CHAR OK ? 

316 

00302 

7650 


SNA 

CIA 



317 

00303 

5273 


JMP 


KWLOOP 

/YES, CONTINUE LOOKING 

316 

00304 

4504 

NOGOOD, 

JMS 

I 

QRESTCP 

/BACK TO START OF STMT 

319 

00305 

1410 


TAD 

I 

X10 

/SKIP OVER REST OF KEYWORD 

320 

00306 

7710 


SPA 

CLA 



321 

00307 

5305 


JMP 


.-2 


322 

00310 

1410 


TAD 

I 

X10 

/IS THIS ENU OF LIST ? 

323 

00311 

7440 


SZA 




32a 

00312 

5276 


JMP 


KWLOQP+3/NO, KEEP LOOKING 

325 

00313 

5316 


JMP 


LET 

/TREAT AS LET STMT 

326 

00314 

3021 

GOTKW, 

DCA 


TEMP 

/SAVE ADDR OF ROUTINE 

327 

00315 

5421 


JMP 

I 

TEMP 

/GO PROCESS THE STMT 
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328 



/ LET 

STATEMENT 

PROCESSOR 

329 

00316 

4474 

LET, 

JMS I 

QLQDSN 

/LOAD THE STMT NUMBER 

330 

00317 

7130 


CLL CML 

RAR 

/COMPILE LEFT SIDE 

331 

00320 

4505 


JMS I 

QEXPR 

/GET EXPRESSION 

332 

00321 

5205 


JMP 

REMARK 


333 

00322 

4513 


JMS I 

QCHECKC 

/LOOK FOR s 

334 

00323 

7703 


-75 



335 

00324 

5340 


JMP 

BADLET 

/BAD IF MISSING 

336 

00325 

4505 


JMS I 

QEXPR 

/GET RIGHT SIDE 

337 

00326 

5205 


JMP 

REMARK 


338 

00327 

7240 


cm cm a 


/GET TYPE OF 

339 

00330 

1014 


TAD 

□STACK 

/RIGHT SIDE 

340 

00331 

3021 


DCA 

TEMP 

/OF EQUAL SIGN 

341 

00332 

1421 


TAD I 

TEMP 

/SO THAT WE GENERATE 

342 

00333 

7710 


SPA CLA 



343 

00334 

7144 


CLL CMA 

RAL 

/THE CORRECT STORE 

344 

00335 

1371 


TAD 

(ASSIGN* 


345 

00336 

4506 


JMS I 

QOUTOPR 

/GENERATE STORE 

346 

00337 

5201 


JMP 

NEWLIN 


347 

00340 

4473 

badlet 

, JMS 1 

QERMSG 

/BAD LET STMT 

348 

00341 

1423 


1423 



349 

00342 

5205 


JMP 

REMARK 


350 

00343 

1370 

END, 

TAD 

(STOP 

/OUTPUT STOP OPCODE 

351 

00344 

4500 


JMS I 

QOUTWRD 


352 

00345 

476 7 * 


JMS 

QUOUMP 

/DUMP BUFFER 

353 

00346 

4766 


JMS I 

(7607 

/READ IN POST PROCESSOR 

354 

00347 

1000 


1000 


/EIGHT PAGES 

355 

00350 

0400 

POSTX, 

400 


/FROM 400 

356 

00351 

0000 

LDBBLK 

# 0 


/FROM THIS BLOCK 

357 

00352 

5406 


JMP I 

X ABORT 


358 

00353 

1473 


TAD I 

QERMSG 

/SET POST PROCESSOR ERROR 

359 

00354 

3765 * 


DCA 

ERMSG2 


360 

00355 

5750 


JMP I 

POSTX 

/START IT UP 

361 

00356 

0050 

STAR, 

50J0IXMULMMUL 


362 

00357 

0000 





363 

00360 

5762 





364 

00361 

5762 





365 

00362 

0060 

uparqw 

, 60 1 1 ? E XPRTN* 1 


366 

00363 

0001 





367 

00364 

3543 
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368 



/ RESTORE, 

PRINT, AND 

INPUT PROCESSORS 

369 

00365 

1712 






370 

00366 

7607 






371 

00367 

6471 






372 

00370 

7441 






373 

00371 

6066 






37fl 

00372 

6242 






375 

00373 

2346 






376 

00374 

6600 






377 

00375 

7660 






378 

00376 

6777 






379 

00377 

1133 






380 


0400 


PAGE 



381 

00400 

4474 

INPUT, 

JMS 

I 

QLODSN 

/OUTPUT STMT NUM 

382 

00401 

4777 ' 


JMS 


GETFn 

/LOOK FOR # < F I L E NUM EXPR>: 

383 

00402 

7130 

INPUTL, 

cu 

CML 

RAR 

/PROCESS INPUT STMT 

38a 

00403 

4505 


JMS 

I 

QEXPR 

/GET EXPR 

385 

00404 

5510 


JMP 

I 

QREMARK 


386 

00405 

4511 


JMS 

I 

QGET A l 

/GET TOP OF STACK 

387 

00406 

1056 


TAD 


TYPE l 

/LOOK AT THE TYPE 

388 

00407 

7710 


SPA 

CLA 



389 

00410 

5231 


JMP 


RSTRNG 

/READ STRING 

390 

00411 

4476 


JMS 

I 

QMOPSET 

/SET MOOE 

391 

00412 

1376 


TAD 


(READ 

/OUTPUT READ COMMAND 

392 

00413 

4500 


JMS 

I 

QOUTWRD 


393 

00414 

7132 


CLL 

CML 

RTR 

/IS IT DIMENSIONED ? 

39a 

00415 

0056 


AND 


TYPEI 


395 

00416 

7650 


SNA 

CLA 



396 

00417 

5222 


JMP 


.♦3 

/NO 

397 

00420 

4512 


JMS 

I 

QLOADSS 

/SET UP SS REGS 

398 

00421 

1375 


TAD 


( AFSTA- 

FSTA 

399 

00422 

1374 


TAD 


CFSTA 

/USE SCALAR STORE 

400 

00423 

1057 

FININP, 

TAD 


SYMBL1 

/PLUS SYMBOL NUMBER 

401 

00424 

4500 


JMS 

I 

QOUTWRD 

/OUTPUT INSTR 

402 

00425 

4513 


JMS 

I 

QCHECKC 

/LOOK FOR , 

403 

00426 

7724 


-54 




404 

00427 

5507 


JMP 

I 

QNEWLIN 

/END OF INPUT 

405 

00430 

5202 


JMP 


INPUTL 

/YES, LOOP 

406 

00431 

7130 

rstrng, 

CLL 

CML 

RAR 

/SET MODE 

407 

00432 

4476 


JMS 

I 

QMODSET 

/TO STRING 

408 

00433 

7132 


CLL 

CML 

RTR 

/SUBSCRIPTED ? 

409 

00434 

0056 


and 


TYPEI 


410 

00435 

7650 


SNA 

CLA 



411 

00436 

5241 


JMP 


• *3 

/NO 

412 

00437 

4512 


JMS 

I 

QLOADSS 

/LOAD SS REG 

413 

00440 

1373 


TAD 


(SAREAD* 

•SREAD 

414 

00441 

1372 


TAD 


CSREAD 

/STRING READ 

415 

00442 

5223 


JMP 


FININP 

/USE SOME COMMON CODE 

416 

00443 

4474 

PRINT, 

JMS 

I 

QLOPSN 

/OUTPUT STMT NUM 

417 

00444 

4777' 


JMS 


GETFN 

/GET FILE NUMBER 

418 

00445 

3505 


DC A 

I 

QEXPR 

/USE ENTRY AS SWITCH 

419 

00446 

3062 

PRINTL, 

DC A 


PCRLF 

/CLEAR THE FLAG 

420 

00447 

4502 


JMS 

I 

QGETC 

/LOOK FOR A CHAR 

421 

00450 

5334 


JMP 


PRTEND 

/NONE LEFT, END PRINT 

422 

00451 

1371 


TAD 


(-73 

n 1 
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423 

00452 

7450 


SNA 




424 

00453 

5261 


JMP 


NQCR 

/YES, OON'T SPACE OUTPUT 

428 

00454 

1370 


TAO 


(73-54 

/, ? 

426 

00455 

7640 


SZA 

CLA 



427 

00456 

5264 


JMP 


TABPNT 

/LOOK FOR TAB OR PNT 

428 

00457 

1367 


TAD 


(FUNC3+20 

429 

00460 

4500 


JMS 

I 

QOUTWRD 

/OUTPUT FUNC3+20 (COMMA) 

430 

00461 

3505 

NOCK t 

OCA 

I 

QEXPR 

/CLEAR THE SWITCH 

431 

00462 

7201 


CLA 

I AC 


/SET NO CRLF FLAG 

432 

00463 

5246 


JMP 


PRINTL 


433 

00464 

1505 

TABPNT, 

TAD 

I 

QEXPR 

/WAS LAST THING AN EXPR ? 

434 

00465 

7640 


SZA 

CLA 



435 

00466 

5507 


JMP 

I 

QNEWLIN 

/YES, CAN'T HAVE TWO IN A ROW 

436 

00467 

4525 


JMS 

I 

QBACK1 

/PUT THAT CHAR BACK 

437 

00470 

4501 


JMS 

I 

QSAVECP 

/SAVE CHAR POS 

438 

00471 

4475 


JMS 

I 

QCHKWD 

/LOOK FOR "TABC" 

439 

00472 

3132 


WTAB 



440 

00473 

5314 


JMP 


TRYPNT 

/NO TAB 

441 

00474 

1366 


TAD 


CFUNC3+100 

442 

00475 

3347 

PFC ALL , 

DC A 


PRFUN 

/SAVE PRINT FUNCTION 

443 

00476 

4505 


JMS 

I 

QEXPR 

/GET ARG 

444 

00477 

5510 


JMP 

I 

QREMARK 


445 

00500 

4520 


JMS 

I 

QLOAD 

/LOAD ARG 

446 

00501 

1056 


TAD 


TYPE! 

/MUST BE NUMERIC 

447 

00502 

7700 


SMA 

CLA 



448 

00503 

5307 


JMP 


.♦4 

/OK , IT IS 

449 

00504 

4473 

BAOPF, 

JMS 

I 

QERM3G 

/PRINT ERROR 

450 

00505 

0622 


0622 


/BAD FUNCTION REFERENCE 

451 

00506 

5510 


JMP 

I 

QREMARK 


452 

00507 

4513 


JMS 

I 

QCHECKC 

/LOOK FOR ) 

453 

00510 

7727 


-51 




454 

00511 

5304 


JMP 


BADPF 

/BAD FUN REFERENCE 

455 

00512 

1347 


TAD 


PRFUN 

/OUTPUT FUNCTION CALL 

456 

00513 

5332 


JMP 


PUT l 


457 

00514 

4504 

TRYPNT, 

JMS 

I 

9RESTCP 

/RESTORE CHAR POS 

458 

00515 

4475 


JMS 

I 

QCHKWD 

/LOOK FOR PNT ( 

459 

00516 

5561 


WPNT 



460 

00517 

5322 


JMP 


PEXP 

/NO 

461 

00520 

1365 


TAD 


(FUNC3+120 

462 

00521 

5275 


JMP 


PFCALL 

/GO DO FUN CALL 

463 

00522 

4504 

PEXP, 

JMS 

I 

QRESTCP 

/RESTORE CHAR POS 

464 

00523 

4505 


JMS 

I 

QEXPR 

/GET EXPR TO BE PRINTED 

465 

00524 

5510 


JMP 

I 

QREMARK 


466 

00525 

4520 


JMS 

I 

QLOAD 

/PUT THING INTO FAC (OR SAC) 

467 

00526 

7130 


CLL 

CML 

RAR 


468 

00527 

0056 


AND 


TYPE! 

/GET TYPE BIT 

469 

00530 

7106 


CLL 

RTL 


/INTO AC 11 

470 

00531 

1364 


TAD 


(WRITE 

/SWRITE*WRITE+1 

471 

00532 

4500 

PUT 1 1 

JMS 

I 

90UTWRD 


472 

00533 

5246 


JMP 


PRINTL 


473 

00534 

1062 

PRTEND i 

TAD 


PCRLF 

/DIO PRINT END WITH 

474 

00535 

7640 


SZA 

CLA 


/, OR 1 

475 

00536 

5507 


JMP 

I 

QNEWLIN 

/YES. NO CR LF 

476 

00537 

1363 


TAO 


CFUNC3+40 

477 

00540 

4500 

PUT2, 

JMS 

I 

QOUTWRD 

/CALL TO CRLF ROUTINE 
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478 

00541 

5507 


JMP 

I QNEWUN 

/END OF PRINT 

479 

00542 

4474 

RESTOR, 

JMS 

I QLODSN 

/OUTPUT LO AO STMT NUMBER 

480 

00543 

7201 


CIA 

I A C 

/NO COLON NEEDED 

481 

00544 

4777 * 


JMS 

GfcTFN 

/LOAD FILt REG 

482 

00545 

1362 


TAD 

CREST 

/OUTPUT RESTORE OP 

483 

00546 

5340 


JMP 

PUT2 


484 



PRFUN, 




485 

00547 

0000 

LOOSN, 

0 


/OUTPUT STMT NUMBER INTO CODE 

486 

00550 

1062 


TAD 

NOSN 

/ANY STMT NUMBER 7 

487 

00551 

7650 


SNA 

CLA 


488 

00552 

5747 


JMP 

I LOOSN 

/NO, JUST RETURN 

489 

00553 

1134 


TAD 

WORD l 

/NOW OUTPUT "LOAD STMT NUM REG" 

490 

00554 

1361 


TAD 

CLOADSN 


491 

00555 

4500 


JMS 

I QOUT^RO 


492 

00556 

1135 


TAD 

woRoa 


493 

00557 

4500 


JMS 

I QOUTwRD 


494 

00560 

5747 


JMP 

I LOOSN 
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495 



/ DIM PROCESSOR 



496 

00561 

6000 





497 

00562 

7405 





496 

00563 

7440 





499 

00564 

7412 





500 

00565 

7520 





501 

00566 

7500 





503 

00567 

7420 





503 

00570 

0017 





504 

00571 

7705 





505 

00572 

1000 





506 

00573 

5500 





507 

00574 

2400 





506 

00575 

4300 





509 

00576 

7411 





510 

00577 

2111 





511 


0600 

PAGE 



512 

00600 

4514 

DIM, JMS 

I 

qgetnam 

/GET VAR NAME 

513 

00601 

5301 

JMP 


OIMERR 


514 

00602 

1026 

TAO 


TYPE 

/CHECK TYPE 

515 

00603 

7006 

RTL 



/MOVE BITS TO BE TESTED 

516 

00604 

7700 

SMA 

CIA 


/IF FUNC BIT SET THEN ERROR 

517 

00605 

7420 

SNl 



/IF DIM BIT NOT SET THEN ERROR 

516 

00606 

5301 

JMP 


DIMERR 

/NO DIMENSIONS 

519 

00607 

4777' 

JMS 


SMLNUM 

/GET DIMENSION 

520 

00610 

1025 

TAD 


EXPON 

/SAVE IT 

521 

00611 

3342 

DC A 


OIMI 


522 

00612 

4515 

JMS 

I 

QCOMARP 

/, OR ) ?? 

523 

00613 

5301 

JMP 


DIMERR 

/NEITHER IS BAD 

524 

00614 

5224 

JMP 


TWODIM 

/, THERE'S ANOTHER DIMENSION 

525 

00615 

4267 

JMS 


CHKSDM 

/CHECK SIZE IF STRING 

526 

00616 

5232 

JMP 


CHKDIM 

/NUMERIC VECTOR, CHECK PREV RtF 

527 

00617 

7130 

CLl 

CML 

RAR 

/THIS WAS A STRING SIZE HIM 

528 

00620 

3026 

DC A 


TYPE 

/PERFORM THE SPECIAL CASE 

529 

00621 

4516 

JMS 

I 

QLDOKUP 


530 

00622 

6211 

CDF 


ID 

/OF NOT CHECKING PREVIOUS REFS 

531 

00623 

5257 

JMP 


FINOIM 


532 

00624 

4777' 

TWODIM, JMS 


SMLNUM 

/GET SECOND 

533 

00625 

45 1 J 

JMS 

I 

QCHECKC 

/LOOK FOR ) 

534 

00626 

7727 

-51 




535 

00627 

5301 

JMP 


DIMERR 


536 

00630 

4267 

JMS 


CHKSDM 

/CHECK SIZE IF STRING ARRAY 

537 

00631 

1376 

TAD 


(7000 

/NUMERIC ARRAY 

538 

00632 

1376 

CHKDIM, TAD 


(7000 

/GET NUMBER OF DIMS 

539 

00633 

3021 

DCA 


TEMP 


540 

00634 

4516 

JMS 

I 

QLQOKUP 

/FIND ST ENTRY 

541 

00635 

6211 

CDF 


10 


542 

00636 

1437 

TAD 

I 

STPTR 

/LOOK AT DIM BITS 

543 

00637 

0376 

AND 


(7000 

/PREVIOUSLY REFERENCED ? 

544 

00640 

7450 

SNA 




545 

00641 

5247 

JMP 


UNREFD 

/NO 

546 

00642 

7S00 

SMA 



/IF MINUS, CAUSE ERROR 

547 

00643 

1021 

TAD 


TEMP 

/COMPARE NUMBER 

548 

00644 

7640 

SZA 

CLA 



549 

00645 

5301 

JMP 


DIMERR 

/NUMBER OF OIMS DON'T MATCH 
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550 

00648 

3021 


OCA 


TEMP 

/ZERO TEMP 

551 

00647 

7130 

UNREFD, 

CLL 

CML 

RAR 

/PUT IN DIMENSIONED SIT 

552 

00650 

1021 


TAD 


TEMP 

/AND NUMBER OF DIMENSIONS 

553 

00651 

7041 


CIA 



/NEGATE WHOLE MESS (4000S-4000) 

554 

00652 

1437 


TAD 

I 

STPTR 

/TOGETHER WITH SVM NUMBER 

555 

00653 

3437 


DC A 

I 

STPTR 


556 

00654 

2037 


ISZ 


STPTR 


557 

00655 

1342 


TAD 


QIM1 

/NOW FIRST DIMENSION CIF 2) 

558 

00656 

3437 


OCA 

I 

STPTR 


559 

00657 

2037 

FINDIM, 

ISZ 


STPTR 


560 

00660 

1025 


TAD 


EXPON 

/NOW SECOND (IF 2, OTHERWISE FIRST) 

561 

00661 

3437 


DCA 

I 

STPTR 


562 

00662 

6201 


CDF 




563 

00663 

4513 


JM8 

I 

QCHECKC 

/LOOK FOR , 

564 

00664 

7724 


-54 




565 

00665 

5507 


JMP 

I 

QNEwLIN 

/NONE, ASSUME EnD OF DIM 

566 

00666 

5200 


JMP 


DIM 

/GET NEXT ELEMENT 

567 

00667 

0000 

chksdm, 

0 



/CHECK SIZE OF STRINGS 

568 

00670 

1026 


TAD 


TYPE 

/WAS THIS A STRING DIM ? 

569 

00671 

7700 


SMA 

cla 



570 

00672 

5667 


JMP 

I 

CHKSDM 

/NO, RETURN IMMEDIATE 

571 

00673 

2267 


ISZ 


CHKSDM 

/YES, SKIP ON RETURN 

572 

00674 

1025 


TAD 


EXPON 

/SIZE MUST 3E < 73 

573 

00675 

7100 


CLL 




574 

00676 

1375 


TAD 


("111 


575 

00677 

7620 


SNL 

CLA 



576 

00700 

5667 


JMP 

I 

CHKSDM 

/OK, SIZE « 73 

577 

00701 

4473 

OIMERR, 

JMS 

I 

QERMSG 

/GIVE ERROR 

578 

00702 

0411 


0411 




579 

00703 

5510 


JMP 

I 

QREMARK 

/ABORT STMT 
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560 



/ NEXT 

PROCESSOR 


561 

00704 

4514 

NEXTX, 

JMS 

I 

QGETNAM 

/GET INDEX VARIABLE 

582 

00705 

5362 


JMP 


BADNXT 


583 

00706 

4516 


JMS 

I 

QLOOKUP 


564 

00707 

1026 


TAD 


TYPE 

/MUST BE NUMERIC 

585 

00710 

7710 


SPA 

CLA 



586 

00711 

5362 


JMP 


BADNXT 

/IT ISN'T 

587 

00712 

4476 


JMS 

I 

QMODSET 

/N MODE 

588 

00713 

1374 

NEXTL, 

TAD 


C-STACKA 

i«3 

589 

00714 

1015 


TAD 


STACK 

/ANY FGR'S LEFT ? 

590 

00715 

7710 


SPA 

CLA 


/(OK IF STACKA ABOVE 4000) 

591 

00716 

5362 


JMP 


BADNXT 

/NO 

592 

00717 

4522 


JMS 

I 

QPOP 

/GET LABEL ADDR 

593 

00720 

3021 


DCA 


TEMP 


594 

00721 

4522 


JMS 

I 

QPOP 

/GET LABEL FIELD 

595 

00722 

3342 


DCA 


LUPFLD 


596 

00723 

4522 


JMS 

I 

QPOP 

/GET STEP VAR 

597 

00724 

1370 


TAD 


XLOAD 

/LOAD IT 

598 

00725 

4500 


JMS 

I 

QOUTWRD 


599 

00726 

4522 


JMS 

I 

QPOP 

/GET INDEX VAR 

600 

00727 

3067 


DCA 


F INDEX 


601 

00730 

1067 


TAD 


FINPEX 

/ADD IT TO STEP (FADD»0) 

602 

00731 

4500 


JMS 

I 

qoutwro 


603 

00732 

1342 


TAD 


LUPFLD 

/CREATE JUMP TO LOOP 

604 

00733 

0373 


AND 


(70 


605 

00734 

7106 


CLL 

RTL 



606 

00735 

1372 


TAD 


(JUMP 


607 

00736 

4500 


JMS 

I 

QOUTWRD 


608 

00737 

7144 


CLL 

CM A 

RAL 

/GET LABEL DEFINITION ADDR 

609 

00740 

1021 


TAD 


TEMP 


610 

00741 

4500 


JMS 

I 

QOUTWRD 

/OUTPUT IT AS LOW PART OF JUMP 

611 



OIM1, 





612 

00742 

7402 

LUPFLO 

, HIT 




613 

00743 

7130 


CLL 

CML 

RAW 

/SET LABEL DEFINED BIT 

614 

00744 

1044 


TAD 


LQCTRH 

/DEFINE END OF LOOP LABEL 

615 

00745 

3421 


DCA 

I 

TEMP 


616 

00746 

2021 


ISZ 


TEMP 


617 

00747 

1045 


TAD 


LQCTRL 


618 

00750 

3421 


DCA 

I 

TEMP 


619 

00751 

6201 


CDF 




620 

00752 

1015 


TAD 


STACK 

/BACK OFF STACK LEVEL 

621 

00753 

3066 


DCA 


STKLVL 


622 

00754 

4532 


JMS 

I 

QNOREGS 

/FORGET REGS 

623 

00755 

1027 


TAD 


SYMBOL 

/IS THIS THE RIGHT NEXT ? 

624 

00756 

7041 


CIA 




625 

00757 

1067 


TAD 


findex 


626 

00760 

7650 


SNA 

CLA 



627 

00761 

5507 


JMP 

I 

QNEWLIN 

/YES, FINISHED 

628 

00762 

4473 

BADNXT 

, JMS 

I 

QERMSG 

/NEXT WITHOUT FOR 

629 

00763 

1606 


1606 



630 

00764 

5510 


JMP 

I 

QREMARK 


631 

00765 

0040 

UMOPR, 

40f WUMRTNE-1 


632 

00766 

0001 






633 

00767 

3534 






634 

00770 

2000 

xlqad, 

floajaflda 
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638 



/ UDEF 

PROCESSOR (DEFINE USER FUNCTION) 

637 

00772 

5001 





636 

00773 

0070 





639 

00774 

0655 





640 

00775 

7667 





641 

00776 

7000 





642 

00777 

5400 





643 


1000 


PAGE 



644 

01000 

2333 

UDEF, 

ISZ 

NFUNS 

/ROOM FOR ANOTHER FUN ? 

645 

01001 

4530 


JMS I 

QLETTER 

/GET FIRST LETTER 

646 

01002 

5251 


JMP 

DEFBAD 

/ERROR IN DEFINE 

647 

01003 

7106 


CLL RTL 


/PUT INTO HIGH ORDER 

648 

01004 

7006 


RTL 



649 

01005 

7006 


RTL 



650 

01006 

3134 


DC A 

NAME 1 

/SAVE CHAR 1 

651 

01007 

4530 


JMS X 

QLETTER 

/GET SECOND LETTER 

652 

01010 

5251 


JMP 

DEFBAD 

/ERROR 

653 

01011 

1134 


TAD 

NAME 1 

/COMBINE THE THO CHARS 

654 

01012 

7041 


CIA 



655 

01013 

3727 


DC A I 

FUNPTR 

/SAVE IN FUN TABLE 

656 

01014 

2327 


ISZ 

FUNPTR 


657 

01015 

4530 


JMS I 

QLETTER 

/GET THIRD LETTER 

658 

01016 

5251 


JMP 

DEFBAD 


659 

01017 

7041 


CIA 


/SAVE NEG OF THIRD LETTER 

660 

01020 

3727 


OCA I 

FUNPTR 


661 

01021 

2327 


ISZ 

FUNPTR 

/BUMP POINTER 

662 

01022 

1331 


TAD 

M5 

/NUMERIC ARG COUNT 

663 

01023 

3021 


DC A 

TEMP 

/ (MAX OF 4 ARGS) 

664 

01024 

7146 


CLL CM A 

RTL 

/STRING ARG COUNT 

665 

01025 

3022 


DC A 

TEMP2 

/ (MAX OF 2 ARGS) 

666 

01026 

4513 


JMS I 

QCHECKC 

/IS IT A STRING FUN ? 

667 

01027 

7734 


-44 



668 

01030 

7610 


SKP CLA 



669 

01031 

7130 


CLL CML 

RAR 

/YES, SET TYPE OF FUNCTION 

670 

01032 

3056 


DC A 

TYPE 1 


671 

01033 

4513 


JMS I 

QCHECKC 

/LOOK FOR ( 

672 

01034 

7730 


-50 



673 

01035 

5251 


JMP 

DEFBAD 

/ERROR IF MISSING 

674 

01036 

4514 

OALQOP, 

JMS I 

QGETNAM 

/GET AN ARG 

675 

01037 

5251 


JMP 

DEFBAD 


676 

01040 

1026 


TAD 

TYPE 

/LOOK AT ITS TYPE 

677 

01041 

7104 


CLL RAL 


/SHIFT TYPE BIT INTO LINK 

678 

01042 

7640 


SZA CLA 



679 

01043 

5251 


JMP 

DEFBAD 

/OTHER BITS MUST BE OFF 

680 

01044 

7430 


SZL 



681 

01045 

5254 


JMP 

STRARG 

/STRING ARG 

682 

01046 

1021 


TAD 

TEMP 

/GET ARG NUMBER 

683 

01047 

2021 


ISZ 

TEMP 

/INCREMENT IT 

684 

01050 

5260 


JMP 

DAPUSH 

/GO SAVE IT 

685 

01051 

4473 

defbad, 

JMS I 

QERMSG 

/BAD USER OEF 

686 

01052 

2504 


2504 



687 

01053 

5510 


JMP I 

QREMARK 


688 

01054 

1022 

STRARG, 

TAD 

TEMP2 

/GET ARG NUMBER 

689 

01055 

2022 


ISZ 

TEMP2 

/AND INCREMENT IT 

690 

01056 

5261 


JMP 

QAPUSH+l 
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691 

01057 

5251 


JMP 

Q£F8 AD 

/TOO MANY STRING ARGS 

692 

01060 

1330 

DAPUSH, 

TAD 

Q2 

/ADJUST ARG NUMBER 

693 

01061 

1330 


TAD 

Q2 

/ADD 4 FOR NUM, 2 FOR STRING 

69a 

01062 

7510 


SPA 



695 

01063 

7332 


CUA CLL 

CML PTR 

/FIRST ARG STAYS IN AC 

69fe 

01064 

1026 


TAD 

TYPE 

/ADD IN TYPE BIT 

697 

01065 

4521 


JM$ I 

QPUSH 

/SAVE IT ON STACK 

698 

01066 

4515 


JMS I 

QCOMARP 

/LOOK FOR # OR ) 

699 

01067 

5251 


JMP 

DEFBAD 

/ERROR IF NEITHER 

700 

01070 

5236 


JMP 

OALOOP 

/, GET NEXT ARG 

701 

01071 

1022 


TAD 

TEMP2 

/GET TOTAL NUMBER OF ARGS 

702 

01072 

1021 


TAD 

TEMP 


703 

01073 

1332 


TAD 

010 

/ADJUST COUNT 

70a 

01074 

7041 


CIA 


/NEGATED 

705 

01075 

3062 


DCA 

DACNT 


706 

01076 

1727 


TAD I 

FUNPTR 

/GET FUNCTION CODE 

707 

01077 

2327 


ISZ 

FUNPTR 

/BUMP POINTER 

706 

01100 

3134 


DCA 

WORD 1 

/MAKE IT THE SEARCH OBJECT 

709 

01101 

4726 


JMS I 

XSTCHEK 

/MAKE SURE THERE'S ROOM 

710 

01102 

7560 


EQST-10 



711 

01103 

4517 


JMS I 

QIUKUP2 

/enter new function 

712 

01104 

2570 


FUNCTN 



713 

01105 

7777 


-l 



7ia 

01106 

1062 


TAD 

DACNT 

/PUT IN ARG COUNT 

715 

01107 

4070 


JMS 

SETFLD 

/(FIRST SET THE FIELD) 

716 

01110 

3416 


DCA I 

NEXT 


717 

01111 

6201 

OAPUT r 

CDF 



718 

01112 

4522 


JMS I 

QPOP 

/GET ARG TYPE (LAST TO FIRST) 

719 

01113 

4070 


JMS 

SETFLD 

/SET THE FIELD 

720 

01114 

3416 


DCA I 

NEXT 

/SAVE IT 

721 

01115 

2062 


ISZ 

DACNT 

/ANY MORE ? 

722 

01116 

5311 


JMP 

OAPUT 

/YES 

723 

01117 

1056 


TAD 

TYPE 1 

/PUT IN TYPE OF FUNCTION 

724 

01120 

3416 


DCA I 

NEXT 


725 

01121 

6201 


CDF 



726 

01122 

4513 


JMS I 

QCHECKC 

/LOOK FOR A COMMA 

727 

01121 

7724 


-54 



728 

01124 

5507 


JMP I 

QNEWLIN 

/NO COMMA, END OF LINE 

729 

01125 

5200 


JMP 

UDEF 

/GET NEXT DEFINITION 

730 

01126 

2317 

xstchek 

f STCHtK 



731 

01127 

6162 

FUNPTR, 

6NDFNS 



732 

01130 

0002 

02# 

2 


/THtSE FOUR WORDS 

733 

01131 

7773 

M5, 

-5 


/PREVENT ERRONEOUS "SAVES" 

734 

01132 

0010 

Q10# 

10 


/BY THE ROUTINE SAVAC 

735 

01133 

7757 

NFUNS, 

-21 


/WHEN THE OP STACK IS EMPTY 

736 



STACKO, 



/OPERAND STACK 

737 


0044 


STQK5Z«UQEF*200' 

-STACKO 
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738 



/ DEF PROCESSOR 

739 


1200 


RAGE 

740 

01200 

4532 

DEF, 

JMS I 

741 

01201 

4514 


JMS I 

742 

01202 

5253 


JMP 

743 

01203 

1028 


TAO 

744 

01204 

3022 


DCA 

745 

01205 

3061 


DCA 

746 

01206 

1026 


TAO 

747 

01207 

7006 


RTL 

748 

01210 

7710 


SPA CLA 

749 

01211 

7420 


SNU 

750 

01212 

5253 


JMP 

75! 

01213 

4476 


JMS I 

752 

01214 

1027 


TAD 

753 

01215 

3246 


OCA 

754 

01216 

4514 

ARGLUP, 

JMS 1 

755 

01217 

5253 


JMP 

756 

01220 

7150 


CLl CMA 

757 

01221 

0026 


AND 

758 

01222 

7640 


SZA CLA 

759 

01223 

5253 


JMP 

760 

01224 

4516 


JMS I 

76! 

01225 

1037 


TAD 

762 

01226 

4521 


JMS I 

763 

01227 

1027 


TAD 

764 

01230 

4521 


JMS I 

765 

01231 

1026 


TAD 

766 

01232 

4521 


JMS I 

767 

01233 

2061 


ISZ 

768 

01234 

4515 


JMS I 

769 

01235 

5253 


JMP 

770 

01236 

5216 


JMP 

771 

01237 

1246 


TAD 

772 

01240 

3134 


DCA 

773 

01241 

1061 


TAD 

774 

01242 

7041 


CIA 

7 75 

01243 

1377 


TAD 

776 

01244 

3246 


DCA 

777 

01245 

4776' 


JMS 

778 

01246 

0000 

FUNNAM, 

0 

779 

01247 

4517 


JMS I 

780 

01250 

2570 


FUNCTN 

781 

01251 

7777 


-1 

782 

01252 

5256 


JMP 

783 

01253 

4473 

BADOEF, 

JMS I 

784 

01254 

0405 


0405 

785 

01255 

5510 


JMP I 

786 

01256 

1016 

OKFUN, 

TAD 

787 

01257 

3012 


DCA 

788 

01260 

1016 


TAD 

789 

01261 

1061 


TAD 

790 

01262 

1375 


TAD 

791 

01263 

3016 


DCA 

792 

01264 

4070 


JMS 


QNOREGS /FORGET REGS 
QGETNAM /GET FUN NAME 
BADOEF /NO SOOQ 
TYPE /SAVE ITS TYPE 
TEMP2 

ARGCNT /ZERO ARG COUNT 
TYPE /TYPE MUST BE 3000 OR 7000 
/MOVE BITS TO BE TESTED 
/FUN BIT OFF IS AN ERROR 
/DIM BIT OFF IS AN ERROR 

BAOOEF 

QMODSET /ENTER N MODE 
SYMBOL /SAVE FUNCTION NAME 
FUNNAM 

QGETNAM /GET ARG NAME 
BADDEF 

RAR /LOOK AT TYPE 

TYPE 

BADOEF /ARG WAS AN ARRAY OR FUNC 
QLOOKUP /ENTER INTO S.T, 

STPTR /SAVE ST ADDRESS 
QPUSH 

SYMBOL /AND SYMBOL NUMBER 
QPUSH 

TYPE /AND ARG TYPE 
QPUSH 

ARGCNT /BUMP ARG COUNT 
QCOMARP /LOOK FOR , OR ) 

BADDEF 

ARGLUP /, GET NEXT ARG 
FUNNAM /ENTER FUNCTION 
WORD 1 

ARGCNT /FIRST GET ENOUGH ROOM 

(EOST-3 

FUNNAM 

3TCHEK /CHECK IT 
QLUKUP2 /LOOK UP FUNCTION 


OKFUN /OK, NOT MULTIPLY DEFINED 
QERMSG /BAD DEFINE 

QREMARK 

NEXT /SAVE "NEXT” 

X 12 

NEXT /INCREMENT NEXT BY 
ARGCNT /NUMBER OF ARGS 
(4 /PLUS 4 

NEXT 

SETFLD /GET ROOM FOR LABEL 
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793 

01265 

7130 


CLL 

CML 

RAR 

/FOR JUMP AROUND 

794 

01266 

3416 


DC A 

I 

NEXT 

/SET DEFINED BIT 

795 

01267 

1016 


TAD 


NEXT 

/SAVE AODR 

796 

01270 

3062 


DC A 


JAROND 

/FOR LATER 

797 

01271 

2016 


ISZ 


NEXT 


79a 

01272 

6201 


CDF 




799 

01273 

1071 


TAD 


LUFLD 

/SAVE FIELD OF FUN BLOCK 

600 

01274 

3336 


DCA 


FUNFLD 


601 

01275 

1071 


TAD 


LUFLD 

/ALSO FIELD OF LABEL 

602 

01276 

3774' 


DCA 


JARFLD 


603 

01277 

1071 


TAD 


LUFLO 

/GET FIELD 

604 

01300 

0373 


AND 


(70 

/ISOLATE BITS 

605 

01301 

7106 


CLL 

RTL 


/INTO JUMP INSTR 

806 

01302 

1372 


TAD 


(JUMP 


607 

01303 

4500 


JMS 

I 

QOUTWRD 

/OUTPUT IT 

806 

01304 

1062 


TAD 


JAROND 

/OUTPUT LOW PART 

809 

01305 

4500 


JMS 

I 

QOUTWRD 

/OF JUMP ADDR 

810 

01306 

1015 


tad 


STACK 

/SAVE STACK 

811 

01307 

3060 


DCA 


OLDSTK 


612 

01310 

1061 


TAD 


ARGCNT 

/GET COUNT 

813 

01311 

7040 


CMA 




814 

01312 

3021 


DCA 


TEMP 


815 

01313 

1061 


TAD 


ARGCNT 

/TWICE 

816 

01314 

7041 


CIA 




817 

01315 

3061 


DCA 


ARGCNT 


816 

01316 

1061 


TAD 


ARGCNT 

/STORE COUNT FIRST 

619 

01317 

5336 


JMP 


FUNFLD 


820 

01320 

6201 

CHGARG, 

CDF 




821 

01321 

4522 


JMS 

I 

QPOP 

/GET ARG TYPE 

822 

01322 

3026 


DCA 


TYPE 


823 

01323 

1026 


TAD 


TYPE 


824 

01324 

4771 ' 


JMS 


GENTMP 

/GENERATE A TEMPORARY 

825 

01325 

4522 

SwTARG, 

JMS 

I 

QPOP 

/PURGE SYMBOL NUMBER 

826 

01326 

7200 


CLA 




827 

01327 

4522 


JMS 

I 

QPOP 

/GET ST AODR OF 

828 

01330 

3037 


DCA 


STPTR 

/OF DUMMY ARG 

829 

01331 

6211 


CDF 


ID 


830 

01332 

1027 


TAD 


SYMBOL 

/PUT IN TEMP SYMBOL NUMBER 

831 

01333 

3437 


DCA 

I 

STPTR 

/TO FAKE EXPR 

832 

01334 

1026 


TAD 


TYPE 

/CREATE ARG DESCRIPTOR 

833 

01335 

1027 


TAD 


SYMBOL 

/FOR FUNC BLOCK 

834 

01336 

7402 

FUNFLD, 

HLT 




835 

01337 

3412 


DCA 

I 

X15 

/AND PUT IT INTO F.B, 

836 

01340 

2021 


ISZ 


TEMP 

/MORE ARGS? 

837 

01341 

5320 


JMP 


CHGARG 

/YUP 

838 

01342 

7130 


CLL 

CML 

RAR 


839 

01343 

0022 


AND 


TEMPS 

/SAVE TYPE OF FUNCTION 

640 

01344 

3412 


DCA 

I 

x 12 


841 

01345 

7130 


CLL 

CML 

RAR 

/SET DEFINED BIT 

842 

01346 

1044 


TAD 


LOCTRH 

/AND LOCATION COUNTER 

843 

01347 

3412 


DCA 

I 

X 1 2 

/AT START OF FUNCTION 

844 

01350 

1045 


TAD 


LOCTRL 


845 

01351 

3412 


DCA 

I 

X 1 2 


846 

01352 

6201 


CDF 




847 

01353 

1015 


TAD 


STACK 

/SAVE BOTTOM OF STACK 


/OS/8 BASIC COMPILER 


PAL8-V8 


10/30/72 PAGE 11-2 


848 

0135A 

3013 

OCA 


X13 


849 

01355 

1060 

TAD 


oldstk 

/RESTORE TO TOP 

8S0 

01358 

3015 

DC A 


STACK 


651 

01357 

4513 

JMS 

I 

QCHECKC 

/FIND * 

8sa 

01380 

7703 

-75 




853 

01361 

5253 

JMP 


BADDEF 


854 

01362 

4505 

J MS 

I 

QEXPR 

/COMPILE FUNCTION 

855 

01363 

5510 

JMP 

I 

QREMARK 


856 

01364 

4520 

JMS 

I 

QLOAO 

/GET IT INTO AC 

857 

01365 

1013 

TAD 


X 1 3 

/RESTORE STACK 

858 

01366 

3015 

DCA 


STACK 

/TO BOTTOM 

859 

01367 

5770' 

JMP 


RE5ARG 

/FINISH DEF 
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660 



/ DEF PROCESSOR 

(FINALE) 


661 

01370 

1400 






662 

01371 

4200 






663 

01372 

5001 






66a 

01373 

0070 






865 

01374 

1413 






666 

01375 

0004 






667 

01376 

2317 






666 

01377 

7565 






669 


1400 


PAGE 




870 

01000 

1413 

RESARG i 

TAD 

I 

X 1 3 

/GET ST ADOR 

871 

01401 

3037 


DC A 


STPTR 


672 

01402 

1413 


TAD 

I 

X 1 3 

/PUT BACK CORRECT SYM # 

873 

01403 

6211 


CDF 


10 


87a 

01404 

3437 


DC A 

I 

STPTR 


675 

01405 

6201 


CDF 




876 

01406 

2013 


ISZ 


X 1 3 

/SKIP OTHER STUFF 

877 

01407 

2061 


ISZ 


ARGCNT 


878 

01410 

5200 


JMP 


RESARG 

/RESTORE NEXT 

879 

01411 

1377 


TAD 


CRET 

/OUTPUT RETURN CODE 

880 

01412 

4500 


JMS 

I 

QQUTWRD 


881 

01413 

7402 

JARFLDf 

HLT 




882 

01414 

7130 


CLL 

CML 

RAR 

/SET LABEL DEFINED BIT 

883 

01415 

1044 


TAD 


LOCTRH 

/STICK IN AODR 

884 

01416 

3462 


DC A 

I 

JARQND 

/OF END OF FUNCT 

885 

01417 

2062 


ISZ 


JAROND 

/PLUS ONE 

686 

01420 

1045 


TAD 


LQCTRl 

/STORE LOW AODR 

887 

01421 

3462 


DC A 

I 

JAROND 


668 

01422 

6201 


CDF 




889 

01423 

1033 


TAD 


TMPCNT 

/SAVE NEW TEMP LEVELS 

890 

01424 

3034 


DCA 


TMPLVL 


891 

01425 

1035 


TAD 


STMPCT 


892 

01426 

3036 


DCA 


STMPLV 


893 

01427 

4532 


JMS 

I 

QNOREGS 

/FORGET REGS 

894 

01430 

5507 


JMP 

I 

QNEWLIN 

/END OF DEF 
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895 



/ DATA 

STATEMENT 

PROCESSOR 




89b 

01431 

4526 

DATA, 

JM5 

I 

QNUMBER 

/LOOK FOR NUMBER 




897 

01432 

5241 


JMP 


DSTRNG 

/MUST BE A STRING 




898 

01433 

4255 


JMS 


DENTRY 

/make an entry 




899 

01434 

7775 


• 3 



/3 WOROS LONG 




900 

01435 

4513 

MORDAT, 

JMS 

Z 

QCHECKC 

/LOOK FOR , 




901 

01436 

7724 


*54 







902 

01437 

5507 


JMP 

Z 

QNEWLIN 

/END OF DATA 




903 

01440 

5231 


JMP 


DATA 

ZOO NEXT ELEMENT 




904 

01441 

4527 

DSTRNG, 

JMS 

I 

QSTRING 

/LOOK FOR STRING 




905 

01442 

5507 


JMP 

I 

QNEWLIN 

/BAD 




90b 

01443 

1134 


TAD 


WQRD1 

/COMPUTE SIZE 




907 

01444 

7001 


I AC 







908 

01445 

7170 


CLL 

CML 

CMA RAR 





909 

01446 

3253 


DCA 


DSSIZE 

/INCLUDING CHAR COUNT 




910 

01447 

1134 


TAD 


WORD! 

/NEGATE COUNT 




911 

01450 

7041 


CIA 







912 

01451 

3134 


OCA 


WORD 1 





913 

01452 

4255 


JMS 


DENTRY 

/CREATE ENTRY 




914 

01453 

0000 

DSSIZE, 

0 







915 

01454 

5235 


JMP 


MORDAT 

/GO 00 MORE 




91b 

01455 

0000 

DENTRY, 

0 



/make an entry in data list 




917 

01456 

1655 


TAD 

Z 

GENTRY 

/GET SIZE 




918 

01457 

3021 


DCA 


TEMP 





919 

01460 

2255 


ISZ 


DENTRY 





920 

01461 

1021 


TAD 


TEMP 

/INCREMENT SIZE COUNT 




921 

01462 

1051 


TAD 


DLSIZE 





922 

01463 

3051 


OCA 


OLSI7E 





923 

01464 

1376 


TAD 


CEOST 

/HOW MUCH DO WE NEED 7 




924 

01465 

1021 


TAD 


TEMP 





925 

01466 

3270 


DCA 







92b 

01467 

4775' 


JMS 


STCHEK 

/ASK FOR IT 




927 

01470 

0000 


0 







928 

01471 

1774' 


TAD 


FREFLD 

/GET FIELD OF FREE SPACE 




929 

01472 

3071 


DCA 


LUFLD 

/SAVE IT IN SETFLD SUBROUTINE 



930 

01473 

6211 

DATFLO, 

CDF 


10 





931 

01474 

1016 


TAD 


NEXT 

/HOOK IN NEW ENTRY 




932 

01475 

7001 


I AC 




) 


• Qi 

933 

01476 

3725 


DCA 

I 

DATPTR 


Z * *’**' 7 


.fv ■ s 6t 

934 

01477 

2325 

PATCH3, 


| 


1 

935 

01500 

1071 


TAD 


LUFLD 





93b 

01501 

3725 


DCA 

I 

DATPTR 





937 

01502 

4070 


JMS 


SETFLD 





93A 

01503 

1021 

#TAO 


TEMP 

/SAVE SIZE OF ENTRY 




939 

01504 

3416 


DCA 

I 

NEXT 





940 

01505 

1373 


TAD 


CWORD1" 

1/MAKE READY TO MOVE 




941 

01506 

3010 


DCA 


X 10 





942 

01507 

6201 

DELOOP t 

CDF 







943 

01510 

1410 


TAD 

I 

X10 

/GET WORD 




944 

01511 

4070 


JMS 


SETFLD 





945 

01512 

3416 


DCA 

I 

NEXT 

/SAVE IT 




94b 

01513 

2021 


ISZ 


TEMP 

/MORE ? 




947 

01514 

5307 


JMP 


DELOOP 





948 

01515 

3416 


DCA 

I 

NEXT 

/SAVE ROOM FOR POINTER&CDF 




949 

01516 

1016 


TAD 


NEXT 

/THIS IS NOW LAST ENTRY 
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950 

01517 

3325 

OCA 

DATPTR 

v> #■" ^ 

951 

01520 

1071 

PATGH4, fm 


^ f fk. ^ ^ 0 * 

952 

01521 

3273 

OCA 

OATFUD 

/and this is its field 

953 

01522 

3416 

DCA I 

NEXT 


95a 

01523 

6201 

0 F 



955 

01524 

5655 

JMP I 

GENTRY 


956 

01525 

2566 

datptr, datlst 
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957 



/ READ 

PROCESSOR 


958 

01526 

4474 

READX, 

JMS 

I 

QLODSN 

/OUTPUT STMT NUMBER 

959 

01527 

7130 


CLL 

CML 

RAR 

/GET VAR TO RE AO 

960 

01530 

4505 


JMS 

I 

QEXPR 

/SAME AS LEFT SIDE OF LET 

961 

01531 

5510 


JMP 

I 

QREMARK 


962 

01532 

4511 


JMS 

I 

QGETA1 

/GET VAR INFO FROM STACK 

963 

01533 

1058 


TAD 


TYPE! 

/SET MODE 

964 

01534 

4478 


JMS 

I 

QMODSET 


965 

01535 

1058 


TAD 


TYPE 1 

/WHAT TYPE 7 

966 

01536 

7710 


SPA 

CLA 



967 

01537 

1373 


TAD 


(SRDL-NR0L 

968 

01540 

1371 


TAD 


(NRDL 

/STRING OR NUMERIC 

969 

01541 

4500 


JMS 

I 

QOUTWRD 


970 

01542 

7132 


CLL 

CML 

RTR 

/SUBSCRIPTS ? 

971 

01543 

0058 


AND 


TYPE 1 


972 

01544 

7850 


SNA 

CLA 



973 

01545 

5350 


JMP 


.♦3 

/NO 

974 

01546 

4512 


JMS 

I 

QLOAOSS 

/YES, LOAD SS REGS 

975 

01547 

1370 


TAD 


C AFST AH 

FSTA 

976 

01550 

1387 


TAD 


Cf sta 

/ARRAY OR SCALAH STORE 

977 

01551 

1057 


TAD 


SYMBL1 


978 

01552 

4500 


JMS 

I 

QOUTWRD 


979 

01553 

4513 


JMS 

I 

QCHECKC 

/ANY MORE ? 

980 

01554 

7724 


w 54 



/CHECK FOR COMMA 

981 

01555 

5507 


JMP 

I 

QNEWLXN 

/NO 

982 

01556 

5337 


JMP 


READX+l 

/YUP 

983 

01557 

0040 

AMPSND, 

40 ; i 

»AMPRTN-1 J 4000> X ADD IX ADD 

984 

01560 

0001 






985 

01561 

8508 






986 

01562 

4000 






987 

01563 

5163 






988 

01564 

5162 
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989 / FOR PROCESSOR 


990 

01567 

2400 







991 

01570 

4300 







992 

01571 

7521 







993 

01572 

7740 







99« 

01573 

0133 







995 

01574 

2286 







998 

01575 

2317 







997 

01576 

7570 







998 

01577 

7404 







999 


1600 


PAGE 




1000 

01600 

4474 

FOR, 

JMS 

1 

QLODSN 

/OUTPUT STMT NUMBER 


1001 

01601 

4514 


JM5 

I 

QGETNAM 

/GET INDEX VARIABLE 


1002 

01602 

5777 ' 


JMP 


8ADF0R 

/BAD 


1003 

01603 

1026 


TAD 


TYPE 

/MUST BE NUMBER 


1004 

01604 

7640 


SZA 

CLA 




1005 

01605 

5777' 


JMP 


BADFOR 

/ITS NOT 


1006 

01606 

4516 


JMS 

I 

QLOOKUP 

/ST SEARCH 


1007 

01607 

1027 


TAD 


SYMBOL 

/SAVE INDEX VAR 


1008 

01610 

3067 


DC A 


FINDEX 

/FOR LATER 


1009 

01611 

4513 


JMS 

I 

QCMECKC 

/FIND s 


1010 

01612 

7703 


-75 





1011 

01613 

5777' 


JMP 


BADFOR 



1012 

01614 

1017 


TAD 


CHRPTR 

/SAVE CHAR POSITION 


1013 

01615 

3336 


DC A 


FORCP 

/IN A SPECIAL PLACE 


1014 

01616 

1020 


TAD 


NCMARS 



1015 

01617 

3335 


DCA 


FORNC 



1016 

01620 

7410 


SKP 





1017 

01621 

4504 

FINDTO, 

JMS 

I 

QRESTCP 

/RESTORE CHAR POS 


1018 

01622 

4502 


JMS 

I 

QGETC 

/SKIP A CHAR 


1019 

01623 

5777' 


JMP 


BADFOR 



1020 

01624 

7200 


CLA 





1021 

01625 

4501 


JMS 

1 

QSAVECP 

/SAVE THIS POSITION 


1022 

01626 

4475 


JMS 

I 

QCHKWD 

/LOOK FOR "TO" 


1023 

01627 

6273 


WTO 





1024 

01630 

5221 


JMP 


FINQTQ 

/KEEP GOING 


1025 

01631 

4776' 


JMS 


F5UB2 

/LOAD LIMIT AND SAVE IN TEMP 

1026 

01632 

3333 


DCA 


FLIMIT 

/SAVE LIMIT VAR 


1027 

01633 

4475 


JMS 

I 

QCHKWD 

/LOOK FOR "STEP" 


1028 

01634 

5156 


WSTEP 




1029 

01635 

5327 


JMP 


STEP1 

/USE 1,0 FOR THE STEP 


1030 

01636 

4776' 


JMS 


FSUB2 

/LOAD STEP AND SAVE IN 

TEMP 

1031 

01637 

3334 


DCA 


FSTEP 

/SAVE STEP VAR 


1032 

01640 

1375 


TAD 


(SET JF 

/OUTPUT SET JF 


1033 

01641 

4500 


JMS 

I 

QOUTWRD 



1034 

01642 

1374 


TAD 


CJFOR 

/STEP IS VARIABLE, USE 

JFOR 

1035 

01643 

3062 

SAVE JF f 

DCA 


FOR JMP 

/SAVE CORRECT JUMP 


1036 

01644 

4502 


JMS 

I 

QGETC 

/ANY MORE CHARS ? 


1037 

01645 

7410 


SKP 





1038 

01646 

577 7' 


JMP 


BADFOR 

/YES, ERROR 


1039 

01647 

1335 


TAD 


FORNC 

/RESTORE CHAR POSITION 


1040 

01650 

3020 


DCA 


NCMARS 

/FROM SPECIAL PLACE 


1041 

01651 

1336 


TAO 


FORCP 



1042 

01652 

3017 


DCA 


CHRPTR 



1043 

01653 

4773' 


JMS 


FSUB1 

/COMPILE INITIAL VALUE 

INTO FAC 


/OS/8 BASIC COMPILER PAL8-V8 10/30/72 PAGE IBM 


1044 

01654 

4772" 


JMS 


STCHEK 

/CHECK FOR ROOM 

1045 

01655 

7570 


EOST 



104ft 

01656 

1771* 


TAO 


FREFLQ 

/SAVE FIELO OF LABELS 

1047 

01657 

3260 


OCA 


FORFLO 


1048 

01660 

7402 

FQRFLDp 

HLT 




1049 

01661 

7130 


CLL 

CML 

RAR 

/SET LABEL DEFINED BIT 

1050 

01662 

1044 


TAO 


LOCTRH 

/DEFINE THE LOOP LABEL 

1051 

01663 

3416 


DCA 

1 

NEXT 


1052 

01664 

1045 


TAO 


LQCTRL 


1053 

01665 

3416 


PC A 

I 

NEXT 


1054 

01666 

7130 


CLL 

CML 

RAR 

/SET LABEL DEFINED BIT 

1055 

01667 

3416 


OCA 

I 

NEXT 

/FOR END OF LOOP LABEL 

1056 

01670 

6201 


CDF 




1057 

01671 

1333 


TAO 


FLIMIT 

/TEST FOR OONE 

1058 

01672 

1343 


TAO 


XSUB 

/BY SUBTRACTING THE LIMIT 

1059 

01673 

4500 


JMS 

I 

QOUTWRD 


1060 

01674 

1260 


TAO 


FORFLO 

/OUTPUT JUMP TO QQNt 

1061 

0167S 

0370 


AND 


(70 


1062 

01676 

7106 


CLL 

RTL 


/SHIFT FIELD BITS 

1063 

01677 

1062 


TAO 


FOR JMP 

/USE PROPER JUMP INS 

1064 

01700 

4500 


JMS 

I 

QOUTWRD 


1065 

01701 

1016 


TAP 


NEXT 

/OUTPUT LOW PART OF JMP 

1066 

01702 

4500 


JMS 

I 

QOUTWRD 


1067 

01703 

1333 


TAP 


FLIMIT 

/FADD FLIMIT (FADDs*0) 

1068 

01704 

4500 


JMS 

I 

QOUTWRD 


1069 

01705 

1067 


TAO 


FINOEX 

/FST A INDEX 

1070 

01706 

1367 


TAO 


CFSTA 


1071 

01707 

4500 


JMS 

I 

QOUTWRD 


1072 

01710 

1067 


TAO 


FINOEX 

/PUT STUFF ONTO STACK 

1073 

01711 

4521 


JMS 

I 

QPUSH 


1074 

01712 

1334 


TAO 


FSTEP 


1075 

01713 

4521 


JMS 

I 

QPUSH 


107fe 

01714 

1260 


TAD 


FORFLO 


1077 

01715 

4521 


JMS 

I 

QPUSH 


1078 

01716 

1016 


TAD 


NEXT 


1079 

01717 

4521 


JMS 

I 

QPUSH 


10B0 

01720 

2016 


ISZ 


NEXT 

/BUMP NEXT AGAIN 

1081 

01721 

1033 


TAO 


TMPCNT 

/RESERVE THESE TEMPS 

1082 

01722 

3034 


OCA 


tmplvl 


1083 

01723 

4532 


JMS 

I 

QNOREGS 

/FORGET REGISTORS 

1084 

01724 

1015 


TAO 


STACK 

/SET NEW STACK LEVEL 

1085 

01725 

3066 


DCA 


STKLVL 


1086 

01726 

5510 


JMP 

I 

QREMARK 


1087 

01727 

1366 

STEP!, 

TAO 


(3 

/1,0 IS SLOT #3 

1088 

01730 

3334 


DCA 


FSTEP 


1089 

01731 

1365 


TAD 


(JGT 

/USE JGT 

1090 

01732 

5243 


JMP 


SAVEJF 

/GO DO THE REST 

1091 

01733 

0000 

flimit, 

0 



/FOR LOOP UPPER LIMIT 

1092 

01734 

0000 

FSTEP, 

0 



/FOR LOOP STEP 

1093 

01735 

0000 

FORNC, 

0 



/FOR STMT CHAR POSITION 

1094 

0173ft 

0000 

FQRCP, 

0 




1095 

01737 

7654 

WTHEN, 

-124»-U0>-105>- 

116 

1096 

01740 

7670 






1097 

01741 

7673 






1098 

01742 

7ft62 
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1099 01743 0400 XSUBi FSUBIAFSUB 

1100 01744 6500 
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1101 



/ USE PROCESSOR 



1102 

01745 

1364 

USEX , TAD 


(USE 

/OUTPUT USE OPERATOR 

1103 

01746 

4500 

JMS 

I 

QOUTWRD 


1104 

01747 

4514 

JMS 

I 

QGETNAM 

/GET ARRAY NAME 

1105 

01750 

5354 

JMP 


USEERR 

/ERROR 

1108 

01751 

1026 

TAD 


TYPE 

/CHECK TYPE 

1107 

01752 

7700 

5MA 

CIA 


/(MUST BE NUMERIC) 

1108 

01753 

5356 

JMP 


.♦3 

/IT WAS 

1109 

01754 

4473 

USEERR, JMS 

I 

QERMSG 

/ERROR IN USE STMT 

1110 

01755 

2525 

2525 




1111 

01756 

7132 

cu 

CML 

RTR 

/SET DIM BIT 

1112 

01757 

3026 

DCA 


TYPE 


1113 

01760 

4516 

JMS 

I 

QLQOKUP 

/LOOKUP SYMBOL 

1114 

01761 

1027 

TAD 


SYMBOL 

/OUTPUT ARRAY NUMBER 

111S 

01762 

4500 

JMS 

I 

QOUTWRD 


1116 

01763 

5510 

JMP 

I 

QREMARK 
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IF AND IFEND PROCESSORS 


11 18 

01764 

7540 



1119 

01765 

5004 



1120 

01766 

0003 



1121 

01767 

2400 



1122 

01770 

0070 



1123 

01771 

2266 



112# 

01772 

2317 



1125 

01773 

3314 



1126 

01774 

5010 



1127 

01775 

7401 



1128 

01776 

3326 



1129 

01777 

3323 



1130 


2000 


PAGE 

1131 

02000 

4474 

IF, 

JMS I 

1132 

02001 

4505 


JMS I 

1133 

02002 

5510 


JMP I 

113# 

02003 

4502 


JMS I 

1135 

02004 

5262 


JMP 

1136 

02005 

7106 


CLL RTL 

1137 

02006 

7006 


RTL 

1136 

02007 

7006 


RTL 

1139 

02010 

3021 


OCA 

11#0 

02011 

4502 


JMS I 

11«1 

02012 

5262 


JMP 

1 1#2 

02013 

1021 


TAO 

1 1 #3 

02014 

3022 


DC A 

11#« 

02015 

1377 


TAD 

1 1 #5 

02016 

3010 


DCA 

11#6 

02017 

1410 

IFLUP1, 

TAD I 

1147 

02020 

7450 


SNA 

1148 

02021 

5271 


JMP 

1149 

02022 

3311 


DCA 

1150 

02023 

1410 


TAD I 

1151 

02024 

1022 


TAD 

1152 

02025 

7640 


SZA CLA 

1153 

02026 

5217 


JMP 

1154 

02027 

4505 

GOTREL, 

JMS I 

1155 

02030 

5510 


JMP I 

1156 

02031 

7240 


CLA CM A 

1157 

02032 

101# 


tad 

1158 

02033 

3021 


DCA 

1159 

02034 

1421 


TAD I 

1160 

02035 

7710 


SPA CLA 

1161 

02036 

5265 


JMP 

1162 

02037 

1376 


TAD 

1163 

02040 

4506 


JMS I 

1164 

02041 

4501 

NgMCMP» 

JMS I 

1165 

02042 

4475 


JMS I 

1166 

02043 

1737 


WTHEN 

1167 

02044 

5255 


JMP 

1166 

02045 

4477 

GETIFN, 

JMS I 

1169 

02046 

5366 


JMP 

1170 

02047 

1021 


TAD 

1171 

02050 

1311 


TAD 



QLOOSN /OUTPUT STMT NUMBER 
QEXPR /GET LEFT EXPRESSION 
QREMARK 

QGETC /GET RELATIONAL OPERATOR 
BADIF /ERROR IF NONE 

/MOVE TO LEFT HALF 

TEMP /AND SAVE IT 

QGETC /GET 2 CHAR REL AT ION ALS 

BADIF 

TEMP /COMBINE THE 2 

TEMP2 

( IFOPS*»l /SETUP POINTER 
X 1 0 

X 1 0 /GET JUMP OPCODE 

IFLUP2-1/N0T A 2 CHAR RELATIONAL 
RELQPR /SAVE IT 

X10 /COMPARE CHARS 

TEMP 2 

IFLUP1 /NOT THIS OOE 

QEXPR /GET RIGHT HALF 

QREMARK 

/GET TYPE OF RIGHT SIDE 

QSTACK 

TEMP 

TEMP 

STRCMP /STRING, 00 STRING COMPARE 
(MINUS /NUMERIC, DO A SUBTRACT 
QOUTOPR 

QSAVECP /SAVE CHAR POSITION ^ — 
QCHKWD /LOOK FOR "THEN” T 

NOTHEN /NOT THEN 

Q5NUM /GET STATEMENT NUMBER 

BA0G02 

TEMP /OUTPUT JUMP 
RELOPR 
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1172 

02051 

4500 


JMS 

I 

1173 

02052 

1022 


TAD 


1174 

02053 

4500 


JMS 

1 

1175 

02054 

5507 


JMP 

I 

1176 

02055 

4504 

NOTHEN, 

JMS 

I 

1177 

02056 

4475 


JMS 

I 

1178 

02057 

6271 


WGQTQ 

1179 

02060 

7410 


SKP 


1180 

02061 

5245 


JMP 


1181 

02062 

4473 

BADIF, 

JMS 

I 

1182 

02063 

1106 


1106 

1183 

02064 

5510 


JMP 

I 

1184 

02065 

1375 

STRCMP, 

TAD 


1185 

02066 

4506 


JMS 

I 

1186 

02067 

4476 


JMS 

I 

1187 

02070 

5241 


JMP 


1188 

02071 

4525 


JMS 

I 

1189 

02072 

1410 

IFLUP2, 

TAO 

I 

1190 

02073 

7450 


SNA 


1191 

02074 

5262 


JMP 


1192 

02075 

3311 


DC A 


1193 

02076 

1410 


TAD 

I 

1194 

02077 

1021 


TAD 


1195 

02100 

7650 


SNA 

CLA 

1196 

02101 

5227 


JMP 


1197 

02102 

5272 


JMP 


1198 

02103 

4474 

ifeno, 

JMS 

I 

1199 

02104 

7201 


CLA 

I AC 

1200 

02105 

4311 


JMS 


1201 

02106 

1374 


TAD 


1202 

02107 

3311 


DC A 


1203 

02110 

5241 


JMP 


1204 



RELOPR, 



1205 

02111 

0000 

GETFN, 

0 


1206 

02112 

3062 


DC A 


1207 

02113 

4513 


JMS 

1 

1208 

02114 

7735 


*43 


1209 

02115 

5340 


JMP 


1210 

02116 

4505 


JMS 

I 

1211 

02117 

5510 


JMP 

I 

1212 

02120 

1062 


TAD 


1213 

02121 

7640 


SZA 

CLA 

1214 

02122 

5326 


JMP 


1215 

02123 

4513 


JMS 

I 

1216 

02124 

7706 


-72 


1217 

02125 

5331 


JMP 


1218 

02126 

4520 


JMS 

I 

1219 

02127 

1056 


TAD 


1220 

02130 

7710 


SPA 

CLA 

1221 

02131 

4473 

BADFN, 

JMS 

I 

1222 

02132 

0616 


0616 

1223 

02133 

7201 


CLA 

1 AC 

1224 

02134 

3063 


DC A 


1225 

02135 

1373 


TAD 


1226 

02136 

4500 


JMS 

I 


QOUTWRD 

TEMP2 /TWO WORDS 

QOUTWRD 

ONEWLIM 

QRESTCP /BACKUP CHAR POS 
QCHKWO /LOOK FOR "GOTO" 


GETIFN /OK, GO GET STMT NUMBER 
QERMSG /BAD IF STMT 

QREMARK 

CSCOMPR-l 

QOUTOPR /OUTPUT STRING COMPARE 

QMODSET /BACK TO N MODE 

NUMCMP /REST IS LIKE NUMERIC COMPARES 

QBACK1 / PUT BACK NON OPERATOR 

X10 /GET CONDITIONAL JUMP 

BADIF /RELATIONAL INCORRECT 
RELOPR 

X10 /COMPARE OPERATORS 

TEMP 

GOTREL /GOTIT 
IFLUP2 

QLODSN /OUTPUT STMT NUMBER 
/(NO COLON) 

GETFN /GET FILE NUMBER 
(JEOF /SETUP CORRECT JUMP 
RELOPR 

NUMCMP /GO FIND "THEN" OR "GOTO" 

/GET FILE NUMBER 
COLON /SAVE COLON SWITCH 
QCHECKC /LOOK FOR # 

TTYFIL /NONE, MUST BE TTY 
QEXPR /GET FILE EXPR 
QREMARK /ERROR 

COLON /DO WE NEED A COLON ? 

.+4 /NO, SKIP THIS TEST 

QCHECKC /YES, LOOK FOR IT 

BADFN /NOT THERE, BAD 

QLOAD /LOAD IT 

TYPE1 /TYPE MUST BE NUMERIC 

QERMSG /NOPE, IT ISN'T 

/SET IFNREG TO "NOT TTY" 

IFNREG /SAVE NEW IFNREG 
(FILENO /OUTPUT SET IFN COMMAND 
QOUTWRD 
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1227 

02137 

5711 

JMP 

I 

GETFN 


1228 

02140 

1063 

TTYFIL, TAD 


IFNREG 

/IS IFNREG 0 ? 

1229 

02141 

7650 

SNA 

CLA 



1230 

02142 

5711 

JMP 

I 

GETFN 

/IF YES, QUIT 

1231 

02143 

1372 

TAD 


CCLRFN 

/OTHERWISE ZERO AC 

1232 

02144 

4500 

JM5 

I 

QQUTWRD 


1233 

02145 

3063 

DCA 


IFNREG 

/SET IFNREG TO TTY 

1234 

02146 

5711 

JMP 

I 

GETFN 

/RETURN 
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1235 



/ GOTO 

AND GOSUB 


1236 

02147 

4477 

GOTO, 

JMS I 

QSNUM 

/GET NUMBER 

1237 

02150 

5366 


JMP 

BADG 02 


1238 

02151 

4476 


JMS I 

QMQDSET 

/ALL GOTO'S IN NMOOfc 

1239 

02152 

7201 


CLA I AC 

/ JUMP* JSUB+ l 

1240 

02153 

5360 


JMP 

* *5 


1241 

02154 

4474 

GOSUB, 

JMS X 

QLODSN 

/OUTPUT STMT NUM LOAD 

1242 

02155 

4477 


JMS I 

QSNUM 

/GET NUMBER 

12«3 

02156 

5366 


JMP 

BADG02 


1244 

02157 

4476 


JMS I 

QMQDSET 

/ALL GOTO * S IN NMQDE 

1245 

02160 

1371 


TAD 

CJSUB 

/GET GOSUB OPCODE 

1246 

02161 

1021 


TAD 

TEMP 

/PLUS ADDRESS 

1247 

02162 

4500 


JMS I 

QOUTWKD 

/OUTPUT IT 

1246 

02163 

1022 


TAD 

TEMP2 

/BOTH WORDS 

1249 

02164 

4500 


JMS I 

QOUTWRD 


1250 

02165 

5507 


JMP I 

QNEWLIN 


1251 

02166 

4473 

BADG02, 

JMS 1 

QERMS6 

/BAD GOTO OR GOSUB 

1252 

02167 

1615 


1615 


/NUMBER MISSING 

1253 

02170 

5510 


JMP I 

QREMARK 
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1254 



/ table 

SEARCH 

FOR LITERALS, STMT NUMBERS, TEMPS, 

ETC, 

1255 

02171 

5000 







1258 

02172 

7501 







1257 

02173 

7402 







1258 

02174 

5400 







1259 

02175 

6566 







1280 

02176 

2755 







1281 

02177 

4140 







1282 


2200 


PAGE 




1263 

02200 

0000 

LUKUP2, 

0 





1264 

02201 

1600 


TAD 

I 

LUKUP2 

/GET THE BUCKET START 


1265 

02202 

3342 


DCA 


QLDN3 

/SAVE IT AS THE PREVIOUS 

ENTRY 

1266 

02203 

2200 


ISZ 


LUKUP2 



1267 

02204 

1600 


TAD 

I 

LUKUP2 

/GET THE ENTRY SIZE 


126S 

02205 

2200 


ISZ 


LUKUP2 



1269 

02206 

3346 


DCA 


N35IZE 



1270 

02207 

1377 


TAD 


(6211 

/PRIME THE FIELD SETTER 


1271 

02210 

3071 


DCA 


LUFLD 



1272 

02211 

4070 


JMS 


SETFLD 

/NOW SET THE FIELD 


1273 

02212 

1742 

L00K2, 

TAD 

I 

QLON3 

/GET ADDR OF NEXT ENTRY 


1274 

02213 

3343 


DCA 


NEWN3 

/SAVE IT 


1275 

02214 

2342 

PATCH1, 

IS2 


0LB*i3™ 

/GE T TO F I E L 0 W K 

1276 

02215 

1742 


TAD 

I 

0LDN3 

/GET INTO AC 


1277 

02216 

3233 


DCA 


NEWFLD 

/AND SAVE IT 


1278 

02217 

1343 

- f'TAO 


NEWN3 



1279 

02220 

7450 

T 

SNA 





1280 

02221 

5257 


JMP 


HOOKIN 

/IF 0 ITS END OF LIST 


1281 

02222 

7001 

PATCH5, 

I AC 





1282 

02223 

3010 


DCA 


X10 

/START OF VALUE INFO 

Z-- ■ * J 

1283 

02224 

1376 


TAD 


(WQRD1 *• 

1/SETUP POINTER TO VALUE 


1284 

02225 

3011 


DCA 


*11 



1285 

02226 

1346 


TAD 


N3SIZE 

/AND TEMP OF ENTRY SIZE 


1286 

02227 

3344 


DCA 


LTEMP 



1287 

02230 

6201 

chkval, 

CDF 





1288 

02231 

1411 


TAD 

I 

XU 



1289 

02232 

7141 


CIA 

CLL 


/COMPARE THIS WORD 


1290 

02233 

6211 

NEWFLD, 

CDF 


10 

/FIELD OF NEW ENTRY 


1291 

02234 

1410 


TAD 

I 

X 1 0 



1292 

02235 

7640 


SZA 

CLA 




1293 

02236 

5250 


JMP 


NOTSAM 

/NOT THIS ONE 


1294 

02237 

2344 


ISZ 


LTEMP 

/INCR SIZE COUNT 


1295 

02240 

5230 


JMP 


CHKVAL 

/MORE STUFF 


1296 

02241 

1410 


TAD 

I 

X10 

/GET SYMBOL NUMBER 


1297 

02242 

6201 

L6201 , 

CDF 





1298 

02243 

3027 


DCA 


SYMBOL 



1299 

02244 

1233 


TAD 


NEWFLD 

/MAKE ENTRY ADDRESSABLE 


1300 

02245 

3071 


DCA 


LUFLD 

/THROUGH SETFLD 


1301 

02246 

2200 


ISZ 


LUKUPE 

/BUMP RETURN 


1302 

02247 

5600 


JMP 

I 

LUKUP2 



1303 

02250 

7430 

notsam, 

SZL 





1304 

02251 

5257 


JMP 


HOOKIN 

/NEW SYMBOL < CURRENT 


1305 

02252 

1343 


TAD 


NEWN3 

/GO TO NEXT ENTRY 


1306 

02253 

3342 


DCA 


0L0N3 

/(MOVE POINTER) 


1307 

02254 

1233 


TAD 


NEWFLD 

/(AND FIELD) 


1308 

02255 

3071 


DCA 


LUFLD 







t /» P 


4 


T 



/OS/B BASIC COMPILE# PAL8-V8 10/30/72 PAGE 19-1 


1309 

02256 

5212 


JMP 


LOOK 2 


1310 

02257 

7144 

MOGKIN, 

CLL 

CMA 

PAL 

/HOW MANY WORQS NEEDED 7 

1311 

02260 

1346 


TAD 


N3SIZL 


1312 

02261 

1375 


TAD 


(EOST 


1313 

02262 

3264 


OCA 




1314 

02263 

4317 


JMS 


STCHEK 

/MARE SURE 

1315 

02264 

0000 


0 



/WE GOT ENOUGH 

1316 

02265 

1343 


TAD 


NEWN3 

/HOOK IN NEW ENTRY 

1317 

02266 

6211 

FREFLD# 

COF 


10 

/CHANGE TO FREE FIELD 

1 3 1 a 

02267 

3416 


OCA 

I 

NEXT 


1319 

02270 

1233 

PATCH2, 

TAD 


NEHFLO 

/HOOK IN FIELD * f 

1320 

02271 

3416 


OCA 

I 

NEXT 


1321 

02272 

4070 


JMS 


SETFLO 

/BACK TO FIELD OF OLD 

1322 

02273 

1266 


TAD 


FREFLD 

/PUT FIELD OF NEW 

1323 

02274 

3742 


OCA 

I 

0LDN3 


1324 

02275 

7240 


CLA 

CMA 


/BACK UP 0L0N3 

1325 

02276 

1342 


TAD 


0LDN3 

/SO THAT IT POINTS TO POINTER 

1326 

02277 

3342 


OCA 


0LDN3 


1327 

02300 

7240 


CLA 

CMA 



1328 

02301 

1016 

ao 


NEXT 

/PUT POINTER TO NEW ENTRY 

1329 

02302 

3742 


OCA 

I 

0L0N3 

/INTO OLD 

1330 

02303 

1266 


TAD 


FREFLD 

/SAVE ENTRY FIELD 

1331 

02304 

3071 


OCA 


LUFLO 

/FOR POSSIBLE POST PROCESSING 

1332 

02305 

1376 


TAD 


(WORD 1 - 

1/PREPARE TO STICK IN THE VALUE 

1333 

02306 

3011 


OCA 


XU 


1334 

02307 

6201 

ENTERV, 

COF 




1335 

02310 

1411 


TAD 

I 

XU 

/MOVE IN THE VALUt 

1336 

0231 1 

6211 

FFLD2, 

CDF 


10 


1337 

02312 

3416 


OCA 

I 

NEXT 


1338 

02313 

2346 


ISZ 


N3SIZE 

/INCR SIZE COUNT 

1339 

02314 

5307 


JMP 


ENTERV 


1340 

02315 

6201 


CDF 




1341 

02316 

5600 


JMP 

I 

LUKUP2 


1342 

02317 

0000 

STCHEK , 

0 



/CHECK FOR ENOUGH ROOM 

1343 

02320 

1016 


TAO 


NEXT 

/CHECK FOR OVERFLOW 

1344 

02321 

7141 


CIA 

CLL 



1345 

02322 

6201 


CDF 




1346 

02323 

1717 


TAD 

I 

STCHEK 

/THIS IS LIMIT 

1347 

02324 

2317 


ISZ 


STCHEK 


1348 

02325 

7630 


SZL 

CLA 



1349 

02326 

5717 


JMP 

I 

STCHEK 


1350 

02327 

1266 


TAO 


FREFLD 

/BUMP FREE FIELD 

1351 

02330 

1374 


TAO 


(10 


1352 

02331 

3266 


OCA 


FREFLD 


1353 

02332 

1266 


TAD 


FREFLD 

/PUT IN TWO PLACES 

1354 

02333 

3311 


OCA 


FFLD2 


1355 

02334 

3016 


OCA 


NEXT 

/START POINTER AT 0 

1356 

02335 

2345 


ISZ 


NFLDS 

/GONE TOO FAR ? 

1357 

02336 

5717 


JMP 

I 

STCHEK 

/NO 

1358 

02337 

4473 

STOVER, 

JMS 

I 

QERMS6 

/S.T. FULL 

1359 

02340 

2324 


2324 




1360 

02341 

5406 


JMP 

I 

X ABORT 

/ABORT COMPILATION 

1361 

02342 

0000 

OLDN3, 

0 



/ ADDR OF PREVIOUS ENTRY 

1362 

02343 

0000 

NEWN3, 

0 



/ADDR OF NEW ENTRY 

1363 

02344 

0000 

ITEMP, 

0 
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1364 

02345 

0000 

NFLDS , 

0 



/- count of AVAILABLE FIELDS 

1365 



N3S1ZE , 




/SIZE OF ENTRY 

1366 

02346 

0000 

kbdchk, 

0 



/CHECK FOR “C OR “0 

1367 

02347 

6031 


KSF 




1366 

02350 

5746 


JMP 

I 

KBDCHK 

/NO CHAR 

1369 

02351 

6036 


KRB 




1370 

02352 

0373 


AND 


(177 

/REMOVE PARITY BIT 

1371 

02353 

1372 


TAD 


(-3 

/“C ?? 

1372 

02354 

7450 


SNA 




1373 

02355 

5406 


JMP 

I 

XABORT 

/YES* EXIT TO OSS 

1 37 A 

02356 

1371 


TAD 


(3-17 

/-0 ?? 

1375 

02357 

7640 


SZA 

CLA 



137b 

02360 

5746 


JMP 

I 

KBDCHK 

/NO, RETURN 

1377 

02361 

3770' 


DC A 


TTX*1 

/NOP TTY OUTPUT ROUTINE 

1378 

02362 

5746 


JMP 

I 

KBDCHK 
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1379 



/ SYMBOL TABLE 

1380 

02370 

3741 



1381 

02371 

7764 



1382 

02372 

7775 



1383 

02373 

0177 



1384 

02374 

0010 



1385 

02375 

7570 



1386 

02376 

0133 



1387 

02377 

8211 



1388 


2400 


PAGE 

1389 

02400 

0000 

LOOKUP, 

0 

1390 

02401 

1134 


TAO 

1391 

02402 

7108 


CLL STL 

1392 

02403 

1134 


TAO 

1393 

02404 

7104 


CLL RAL 

1394 

02405 

1134 


TAD 

1395 

02406 

1135 


TAD 

1396 

02407 

3134 


DC A 

1397 

02410 

1028 


TAD 

1398 

02411 

7106 


CLL RTL 

1399 

02412 

7008 


RTL 

1400 

02413 

1218 


TAD 

1401 

02414 

3215 


DC A 

1402 

02415 

0000 

VCPTR, 

0 

1403 

02416 

5617 

JTABLE, 

JMP X 

1404 

02417 

2427 


LUVAR 

1405 

02420 

2451 


LURETN 

1406 

02421 

2463 


LUARAY 

1407 

02422 

2451 


LURETN 

1408 

02423 

2456 


LUSTRG 

1409 

02424 

2451 


LURETN 

1410 

02425 

2516 


lusary 

1411 

02426 

2451 


LURETN 

1412 

02427 

1377 

UUVAR, 

TAD 

1413 

02430 

3215 


DCA 

1414 

02431 

1376 


TAD 

1415 

02432 

1134 

DOLU, 

TAD 

1416 

02433 

3037 


DCA 

1417 

02434 

6211 


CDF 

1418 

02435 

1437 


tad I 

1419 

02436 

7500 


SMA 

1420 

02437 

5253 


JMP 

1421 

02440 

1375 


TAD 

1422 

02441 

6201 

CHEKST, 

CDF 

1423 

0244 g 

1615 


TAD I 

1424 

02443 

6211 


CDF 

1425 

02444 

3027 


DCA 

1426 

02445 

1027 


TAD 

1427 

02446 

3437 


OCA I 

1428 

02447 

6201 


CDF 

1429 

02450 

2615 


I$Z X 

1430 

02451 

5600 

luretn, 

JMP I 

1431 

02452 

5774' 


JMP 

1432 

02453 

3027 

GOTSYM, 

DCA 

1433 

02454 

6201 


COF 


OOKUP 


/LOOK up symbol 

NAME 1 /GET NAME! *1 1+NAME2 

NAME 1 

NAME 1 
NAME2 

NAME! /THIS IS IT 

TYPE /WHAT KINO SYMBOL ? 

/MOVE TYPE BITS 
/INTO AC 9,10*11 

JTABLE 

. + 1 

/GO THERE 

. + 1 


(VARCNT /POINTER TO VAR COUNT 

VCPTR 

CVARST-13 

NAME 1 

STPTR /ST POINTER 

10 /THATS WHERE ST IS 

STPTR /IS THIS VAR DEFINED YET 7 

GOTSYM /YES 

(4401 /GET 401 INTO AC 

VCPTR /PLUS VAR COUNT 
10 

SYMBOL /THATS THE NEW SYMBOL NUMBER 
SYMBOL /PUT SYMBOL NUMBER 
STPTR /INTO S.T, ENTRY 

VCPTR /BUMP SYMBOL NUMBER 

LOOKUP 

STOVER /S.T, OVERFLOW 

SYMBOL /PUT NUMBER INTO SYMBOL 


/OS/8 

1034 

1035 

1036 

1037 

1038 
1439 
1000 
1001 
1442 

1003 

1004 
1445 
1046 
1007 
1048 
1009 
1450 

1051 

1052 

1453 

1454 
1055 
1456 

1057 

1058 

1059 
1460 
1061 
1062 
1063 
1460 
1065 
1466 
1067 
1468 

1069 

1070 
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02455 

5600 


JMP 

I 

LOOKUP 


02456 

1373 

LUSTBG, 

TAO 


CSVCNT 

/POINTER TO STRING VAR COUNT 

02057 

3215 


DC A 


VCPTR 


02460 

1372 


TAD 


(SVARST- 

26 

02461 

1134 


TAD 


NAMEl 

/TWO WORDS PER ENTRY 

02462 

5232 


JMP 


DOLU 


02463 

1371 

LUARAY, 

TAD 


CACNT 

/ARRAY VAR COUNT 

02464 

3215 


DC A 


VCPTR 

/ARRAY SYMBOL TABLE 

02465 

1370 


TAD 


CARAYST 

02466 

3037 


DCA 


STPTR 


02467 

6211 


CDF 


10 


02470 

1437 

FINDA, 

TAD 

I 

STPTR 

/SEARCH TABLE 

02471 

7450 


SNA 




02472 

5311 


JMP 


NEW ARY 

/NEW ENTRY 

02473 

7001 


CIA 




02474 

1134 


TAD 


NAME i 

/IS THIS IT ? 

02075 

2037 


ISZ 


STPTR 


02476 

7650 


SNA 

CIA 



02077 

5304 


JMP 


GOTARY 

/YES 

02500 

2037 


ISZ 


STPTR 


02501 

2037 


ISZ 


STPTR 


02502 

2037 


ISZ 


STPTR 

/GO TO NEXT ENTRY 

02503 

5270 


JMP 


FINDA 


02504 

1367 

GOT ARY , 

TAD 


(37 

/GET NUMBER 

02505 

0437 


AND 

I 

STPTR 


02506 

3027 


DCA 


SYMBOL 

/INTO SYMBOL 

02507 

6201 


CDF 




02510 

5600 


JMP 

I 

LOOKUP 


02511 

1134 

NEWARY, 

TAD 


NAME 1 

/PUT IN NEW ENTRY 

02512 

3437 


DCA 

I 

STPTR 


02513 

2037 


ISZ 


STPTR 


02S14 

1373 


TAD 


(41 

/PUT IN NUMBER 

02515 

5201 


JMP 


CHEKST 

/GO DO THE REST 

02516 

1366 

LUSARY, 

TAD 


(SACNT 

/STRING ARRAY COUNT 

02517 

3215 


DCA 


VCPTR 


02520 

1365 


TAD 


(SARYST 

/USE STRING array table 

02521 

5266 


JMP 


FINDA-2 

/GO DO SEARCH 
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1471 



/ FILE 

AND CLOSE PROCESSORS 

1472 

02522 

4474 

FILE, 

JMS I 

GLODSN 

/OUTPUT STMT NUMBER 

1473 

02523 

1364 


TAO 

(FGPENS 

/POINTER TO FILE OPENS 

1474 

02524 

3356 


OCA 

FILESW 


1475 

02525 

4513 


JMS I 

QCHECKC 

/LOOK FOR "V 

1476 

02526 

7652 


*126 



1477 

02527 

7410 


SKP 


/NOT V 

1478 

02530 

2356 


ISZ 

FILESW 

/YUP, INCR FILESW 

1479 

02531 

4513 


JMS I 

QCHfcCKC 

/LOOK FOR "N" 

1480 

02532 

7662 


*116 



1481 

02533 

5336 


JMP 

• *3 


1482 

02534 

2356 


ISZ 

FILESW 

/INCR FILESW BY TWO IF "N" 

1483 

02535 

2356 


ISZ 

FILESW 


1484 

02536 

4763' 


JMS 

GETFN 

/GET FILE NUMBER 

1485 

02537 

4505 


JMS I 

QEXPR 

/GET OEVICE/FILE DESCRIPTOR 

1486 

02540 

5510 


JMP I 

QREMARK 


1487 

02541 

4520 


JMS I 

OLOAD 

/LOAD INTO SAC 

1488 

02542 

1056 


TAD 

TYPE! 

/TYPE MUST BE STRING 

1089 

02543 

7710 


SPA CIA 



1490 

02544 

5347 


JMP 

» +3 

/IT WERE 

1491 

02545 

4473 


JMS I 

QERMSG 

/IT WEREN'T 

1492 

02546 

0616 


0616 



1493 

02547 

1756 


TAD I 

FILESW 

/GET CORRECT OPEN 

1494 

02550 

4500 


JMS I 

QOUTWRD 


1495 

02551 

5507 


JMP I 

QNEWLIN 


1496 

02552 

7454 

FGPENS, 

OPENAF>OPENAVIOPENNF>OPENNV 

1497 

02553 

7474 





1498 

02554 

7514 





1499 

02555 

7534 





1500 

02556 

0000 

FILESW, 

0 



1501 

02557 

0040 

PLUS, 

40 f 0 ; X ADD J X ADD 


1502 

02560 

0000 





1503 

02561 

5162 





1504 

02562 

5162 






/OS/8 
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PAL8-V8 10/30/72 PAGE 22 

1505 



/ EXPRESSION 

analyzer 


1506 

02563 

2111 






1507 

02564 

2552 






1508 

02565 

2332 






1509 

02566 

0043 






1510 

02567 

(1037 






1511 

02570 

2132 






1512 

02571 

0042 






1513 

02572 

1010 






1 51 a 

02573 

0041 






1515 

02574 

2337 






1516 

02575 

4401 






1517 

02576 

0365 






1518 

02577 

0040 






1519 


2600 


PAGE 




1520 

02600 

0000 

EXPR. 

0 



/POLISHIZE EXPRESSION 

1521 

02601 

3021 


OCA 


TEMP 

/SAVE LEFT 

1522 

02602 

1030 


TAD 


LEFT 

/SO WE CAN PUSH OLD VALUE 

1523 

02603 

4521 


JMS 

I 

QPUSH 

/OF IT 

1524 

02604 

1021 


TAD 


TEMP 

/NOW SET NEW VALUE 

1525 

02605 

3030 


DC A 


LEFT 

/OF THAT SWITCH 

1526 

02606 

1200 


TAD 


EXPR 


1527 

02607 

4521 


JMS 

I 

QPUSH 

/SAVE RETURN ADQR 

1528 

02610 

4521 


JMS 

I 

QPUSH 

/MARK STACK 

1529 

02611 

1030 


TAO 


left 

/IS THIS LEFT SIDE ? 

1530 

02612 

7710 


SPA 

CIA 



1531 

02613 

5244 


JMP 


QPRAND+i/YES, no UNARY MINUS 

1532 

02614 

4502 

UNOPR, 

JMS 

I 

QGETC 

/LOOK FOR UNARY OPERATOR 

1533 

02615 

5352 


JMP 


MISARG 

/THERE HAS TO BE AN OPERAND 

1534 

02616 

1377 


TAD 


(-53 

/UNARY+ (NOP) 

1535 

02617 

7450 


SNA 




1536 

02620 

5214 


JMP 


UNOPR 


1537 

02621 

1376 


TAD 


(53-55 

/unary - 

1538 

02622 

7440 


SZA 




1539 

02623 

5227 


JMP 


N0TMIN 

/NOT UNARY MINUS 

1540 

02624 

1375 


TAO 


(UM0PR 

/PUSH UNARY MINUS 

1541 

02625 

4521 


JMS 

I 

QPUSH 


1542 

02626 

5214 


JMP 


UNOPR 


1543 

02627 

1374 

NQTMIN » 

TAO 


(55-50 

/LOOK FOR ( 

1544 

02630 

7640 


SZA 

CLA 



1545 

02631 

5243 


JMP 


OPRAND 

/NOT A SUB EXPRESSION 

1546 

02632 

4505 


JMS 

I 

QEXPR 

/COMPILE SUB EXPRESSION 

1547 

02633 

5773' 


JMP 


BADEXP 

/BAD SUB EXPRESSION 

1548 

02634 

4513 


JMS 

I 

QCHECKC 

/LOOK FOR ) 

1549 

02635 

7727 


-51 




1550 

02636 

7410 


SKP 



/ERROR 

1551 

02637 

5263 


JMP 


0PR8R 

/GOTIT 

1552 

02640 

4473 


JMS 

I 

QERMSG 

/PARENTHESIS MIS MATCH 

1553 

02641 

1520 


1520 



1554 

02642 

5773' 


JMP 


BADEXP 


1555 

02643 

4525 

OPRAND, 

JMS 

I 

QBACK1 

/PUT BACK NON UNARY OP 

1556 

02644 

4514 


JMS 

1 

qgetnam 

/LOOK FOP VARIABLE REF 

1557 

02645 

5772' 


JMP 


NOTVAR 

/NOPE, 

1558 

02646 

4516 


JMS 

I 

QLOOKUP 

/SYMBOL TABLE SEARCH 

1559 

02647 

1027 


TAD 


SYMBOL 

/SAVE SYMBOL NUMBER 



. /OS/a BASIC COMPILER 


PALa«V8 10/30/7a PAGE ?<?-! 


1560 

02650 

3022 


OCA 


1561 

02651 

4524 


JMS 

I 

1562 

02652 

7775 


-3 


1565 

02653 

1026 


TAD 


1564 

0265a 

0371 


AND 


1565 

02655 

7aa0 


SZA 


1566 

02656 

5771 ' 


JMP 


1567 

02657 

1026 


TAD 


1566 

02660 

4523 


JMS 

I 

1569 

02661 

1022 


TAD 


1570 

02662 

4523 


JMS 

I 

1571 

02663 

1030 

0PR8R, 

TAD 


1572 

0266a 

7700 


SMA 

CLA 

1573 

02665 

4502 


JMS 

I 

1576 

02666 

5341 


JMP 


1575 

02667 

1370 


TAD 


1576 

02670 

7440 


SZA 


1577 

02671 

5301 


JMP 


1578 

02672 

4502 


JMS 

I 

1579 

02673 

5301 


JMP 


1580 

0267a 

1370 


TAD 


1581 

02675 

7650 


SNA 

CLA 

1582 

02676 

1367 


TAD 


1583 

02677 

7450 


SNA 


158a 

02700 

4525 


JMS 

I 

1585 

02701 

1366 

NOSTAR, 

TAD 


1586 

02702 

3021 


DCA 


1587 

02703 

1365 


tad 


1588 

0270a 

3010 


OCA 


1589 

02705 

1410 

OPRLUP, 

TAD 

I 

1590 

02706 

7450 


SNA 


1591 

02707 

5336 


JMP 


1592 

02710 

3032 


DCA 


1593 

0271 1 

1410 


TAD 

I 

159a 

02712 

1021 


TAD 


1595 

02713 

7640 


SZA 

CLA 

1596 

027ia 

5305 


JMP 


1597 

02715 

4522 

GOTOPR, 

JMS 

I 

1598 

02716 

7450 


SNA 


1599 

02717 

5327 


JMP 


1600 

02720 

3031 


DCA 


1601 

02721 

1431 


TAD 

I 

1602 

02722 

7041 


CIA 


1603 

02723 

1432 


TAD 

I 

1609 

0272a 

7750 


SPA 

SNA 

1605 

02725 

5333 


JMP 


1606 

02726 

1031 


TAD 


1607 

02727 

4521 

PUSH2, 

JMS 

I 

1608 

02730 

1032 


TAD 


1609 

02731 

4521 


JMS 

I 

1610 

02732 

5214 


JMP 


1611 

02733 

1031 

OUTOLO, 

TAD 


1612 

0273a 

4506 


JMS 

I 

1613 

02735 

5315 


JMP 


1 6 ia 

02736 

4525 


JMS 

I 


TEMP2 /BECAUSE SAVAC MIGHT KILL IT 
QSAVAC /GENERATE FSTA ( M A YbE ) 

TYPE /WAS THIS A FUNCTION OR ARRAY ? 
(3000 

FUNSS /YES, GO PROCESS IT 

TYPE /MAKE OPERAND STACK ENTRY 

GPUSHO 

TEMP2 /FIRST TYPE THEN SYMBOL # 

QPUSHO 

LEFT /LEFT SIDE ? 

/YES , NO OPERATORS LEGAL 
QGETC /LOOK FOR OPERATOR 

ENOEXP /END OF EXPR 

(-52 /** IS SPECIAL CASE 

NOSTAR /NOT * 

QGETC /LOOK FOR SECOND * 

NOSTAR 

("52 

(136-52 /** -> * 

Q8ACK1 /PUT IT BACK 
(52 /RESTORE CHAR 

TEMP 

(0PR8RS-1 

X10 /PTH TO LIST 

X10 /GET OPERATOR PTR 

ENDEXP-3/END OF LIST 
NEWOP /SAVE IT IN CASE 

X10 /COMPARE 

TEMP 

OPRLUP /KEEP LOOKING 
QPQP /GET STACK TOP 

PUSH2 /EMPTY 
OLDQP 

OLDOP /COMPARE PREC, 

NEWOP /NEW-OLD 
CLA 

OUTOLO /OLD>NEW 
OLDOP 

QPUSH /OLD < NEW 
NEWOP /GO PUSH BOTH 
QPUSH 

UNOPR /GO LOOK FOR NEXT OPERAND 
OLDOP /OUTPUT CODE FOR OLD OPR8W 
QOUTOPR 

GOTOPR /LOOK AT NEXT TOP OF STACK 
QBACK1 /PUT BACK NON OPERATOR 
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1615 

02737 

7410 


SKP 

1616 

02740 

4506 


JMS I 

1617 

02741 

4522 

ENDEXP, 

JMS I 

1618 

02742 

7440 


SZA 

1619 

02743 

5340 


JMP 

1620 

02744 

4522 


JMS I 

1621 

02745 

7001 


I AC 

1622 

02746 

3021 


DC A 

1623 

02747 

4522 


JMS I 

1624 

02750 

3030 


DC A 

1625 

02751 

5421 


JMP I 

1626 

02752 

4473 

MISARG, 

JMS 1 

1627 

02753 

1517 


1517 

1628 

02754 

5773* 


JMP 

1629 

02755 

0040 

MINUS, 

4070F 

1630 

02756 

0000 



1631 

02757 

3763 



1632 

02760 

1743 



1633 

02761 

0050 

SLASH, 

50107 

1634 

02762 

0000 



1635 

02763 

5557 



1636 

02764 

6756 




QOUTOPR /OUTPUT OPERATOR 
QPQP /LOOK FOR STACK MARK 

ENDEXP-l/NOT THIS 

QPOP /GET RETURN ADDR 

TEMP 

QPOP /GET LEFT SIDE SWITCH 
LEFT 

TEMP /RETURN 

QERMSG /MISSING OPERAND 

6ADEXP 

XISUBJXSUB 


X 1 0 1 V I XDI V 
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1637 



/ EXPRESSION 

ANALYZER (HANDLE SUBSCRIPTS ) 

1638 

02765 

6047 






1639 

02766 

0052 






1 690 

02767 

0064 






1641 

02770 

7726 






1642 

02771 

3000 






1643 

02772 

3136 






1644 

02773 

3122 






1645 

02774 

0005 






1646 

02775 

0765 






1647 

02776 

7776 






1648 

02777 

7725 






1649 


3000 


PAGE 



1630 

03000 

0377 

FUNSS# 

AND 


(1000 

/IS IT FUN CALL 7 

1651 

03001 

7650 


SNA 

CLA 



1652 

03002 

5205 


JMP 


• + 3 

/NO 

1653 

03003 

4524 


JMS 

I 

QSAYAC 

/YES, SAVE AC 

1654 

03004 

7777 






1655 

03005 

1026 


TAD 


TYPE 

/SAVE TYPE 

1656 

03006 

4521 


JMS 

I 

QPUSH 


1657 

03007 

1022 


TAD 


TEMPS 

/AND SYMBOL NUMBER 

1658 

03010 

4521 


JMS 

I 

QPUSH 


1659 

03011 

1037 


TAD 


STPTR 

/AND SYMBOL TABLE PTR 

1660 

03012 

4521 


JMS 

I 

QPUSH 


1661 

03013 

7410 


SKP 




1662 

03014 

4522 

SSLOOP, 

JMS 

I 

QPOP 

/GET ARG/SS COUNT 

1663 

03015 

7001 


I AC 




1664 

03016 

4521 


JMS 

I 

QPUSH 

/INCREMENT IT 

1665 

03017 

4505 


JMS 

I 

QEXPR 

/GET NEXT ARG/SS 

1666 

03020 

5315 


JMP 


BADFSS 


1667 

03021 

4511 


JMS 

I 

GGETA1 

/IS THIS ARG(SS) AN ARRAY REF ? 

1668 

03022 

7132 


CLL 

CML 

RTR 


1669 

03023 

0056 


AND 


TYPE 1 

/CHECK THE TYPE 

1670 

03024 

7650 


SNA 

CLA 



1671 

03025 

5242 


JMP 


NOTSSD 

/NOT AN ARRAY REFERENCE 

1672 

03026 

4512 


JMS 

I 

QLOAOSS 

/LOAD THE SS REGS 

1673 

03027 

4524 


JMS 

I 

QSAVAC 

/SAVE AC IF NEEDED 

1674 

03030 

7777 


-1 




1675 

03031 

1056 


TAD 


TYPE 1 

/SET THE MODE 

1676 

03032 

4476 


JMS 

I 

QMODSET 


1677 

03033 

1376 


TAD 


CAFLOA 

/LOAD THIS ARG/SS 

1678 

03034 

1057 


TAD 


SYMBL1 


1679 

03035 

4500 


JMS 

I 

QOUTWRD 


1680 

03036 

1133 


TAD 


Q400 

/SET THE IN-AC BIT 

1681 

03037 

1055 


TAD 


MODE 

/WE JUST CALLED MOD5ET 

1682 

03040 

3414 


DCA 

I 

OSTACK 

/CHANGE THIS STACK ENTRY 

1683 

03041 

7410 


SKP 




1684 

03042 

2014 

NOTSSD, 

ISZ 


OSTACK 

/FIX UP OSTACK 

1685 

03043 

2014 


ISZ 


OSTACK 


1686 

03044 

4515 


JMS 

I 

QCOMARP 

/LOOK FOR , OR ) 

1687 

03045 

5315 


JMP 


BADFSS 

/NEITHER IS BAD 

1688 

03046 

5214 


JMP 


SSLOOP 

/, MEANS MORE ARGS/SS 

1689 

03047 

4522 


JMS 

I 

QPOP 

/GET # OF ARG/SS 

1690 

03050 

3021 


OCA 


TEMP 

/GET ARG/SS COUNT 

1691 

03051 

4522 


JMS 

I 

QPOP 

/RESTORE S.T. A DDR 


/OS/8 

BASIC COMPILER 
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1892 

03052 

3037 


DC A 


8TPTR 


1693 

03053 

4522 


JMS 

I 

QPOP 


1694 

03054 

3027 


DC A 


SYMBOL 

/GET BACK THE SYMBOL A 

1695 

03055 

4522 


JMS 

I 

QPOP 


1696 

03056 

3026 


DC A 


TYPE 

/GET BACK THE TYPE 

1697 

03057 

1026 


TAD 


TYPE 

/IS IT AN ARRAY OR FUN REF ? 

1698 

03060 

037 7 


AND 


(1000 


1699 

03061 

7640 


SZA 

CLA 



1700 

03062 

5775* 


JMP 


DOCALL 

/FUNCTION REFERENCE 

1701 

03063 

1021 


TAD 


TEMP 

/MOVE SS COUNT 

1702 

03064 

7112 


CLL 

RTR 


/INTO THE CORRECT 

1703 

03065 

7012 


RTR 



/FIELD 

1704 

03066 

3022 


DCA 


TEMP2 

/AND SAVE IT 

1705 

03067 

6211 


CDF 


10 


1706 

03070 

1437 


TAD 

I 

STPTR 

/ANY PREV REFERENCE ? 

1707 

03071 

0374 


AND 


(3000 


1708 

03072 

7440 


SZA 




1709 

03073 

5300 


JMP 


NQTNEW 

/YES, GO CHECK NUMBERS 

1710 

03074 

1022 


TAD 


TEMP2 

/IF NONE, PUT IN NUMBER 

1711 

03075 

1437 


TAD 

I 

STPTR 


1712 

03076 

3437 


DCA 

I 

STPTR 


1713 

03077 

5304 


JMP 


NDOK 

/TMATS ALL 

1714 

03100 

7041 

NOTNEH, 

CIA 



/COMPARE NUMBER OF SS 

1715 

03101 

1022 


TAD 


TEMP2 

/WITH ANY PREVIOUS 

1716 

03102 

7640 


SZA 

CLA 



1717 

03103 

5320 


JMP 


BADFSS+3/THEY DON'T MATCH 

1718 

03104 

6201 

NOOK, 

CDF 




1719 

03105 

1026 


TAD 


type 

/PUT TYPE 

1720 

03106 

1021 


TAD 


TEMP 

/AND DIM COUNT 

1721 

03107 

4523 

ONSTAK, 

JMS 

I 

QPUSHQ 

/ONTO ARGUMENT STACK 

1722 

03110 

1027 


TAD 


SYMBOL 


1723 

03111 

4523 


JMS 

I 

QPUSHO 

/AND SYMBOL NUMBER 

1724 

03112 

4524 


JMS 

I 

QSAVAC 

/SAVE FIRST SS IF LEFT IN AC 

1725 

03113 

7773 


•5 




1726 

03114 

5773' 


JMP 


0PR8R 

/GO GET AN OPERATOR 

1727 

03115 

1372 

badfss, 

TAO 


(-4 

/PURGE STACK JUNK 

1728 

03116 

1015 


TAD 


STACK 


1729 

03117 

3015 


DCA 


STACK 


1730 

03120 

4473 


JMS 

I 

QERMSG 

/PUT ERROR MESSAGE 

1731 

03121 

2323 


2323 



1732 

03122 

4522 

BAOEXP, 

JMS 

I 

QPOP 

/LOOK FOR STACK MARK 

1733 

03123 

7640 


SZA 

CLA 



1734 

03124 

5322 


JMP 


BAQEXP 

/NOT YET 

1735 

03125 

4522 


JMS 

I 

QPOP 

/RETURN ADDR 

1736 

03126 

3021 


DCA 


TEMP 


1737 

03127 

4522 


JMS 

I 

QPOP 

/SS LOAD SWITCH 

1738 

03130 

3030 


DCA 


LEFT 


1739 

03131 

5421 


JMP 

I 

TEMP 

/TAKE ERROR EXIT 

1740 

03132 

7654 

WTAB, 

-1241-1011-1021 

-50 

1741 

03133 

7677 






1742 

03134 

7676 






1743 

03135 

7730 






1744 

03136 

1030 

NOTVAR, 

TAD 


LEFT 

/left SIDE ? 

1745 

03137 

7710 


SPA 

CLA 



1746 

03140 

5771 ' 


JMP 


MISARG 

/YES, NO LITERALS LEGAL 
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1747 

03141 

4526 

JMS I 

1746 

03142 

5350 

JMP 

1749 

03143 

4517 

JMS I 

1750 

03144 

2562 

LITRL 

1751 

03145 

7775 

-3 

1752 

03146 

4770' 

JMS 

1753 

03147 

5307 

JMP 

1754 

03150 

4527 

NQTNUM, JMS I 

1755 

03151 

5771' 

JMP 

1756 

03152 

1134 

TAD 

1757 

03153 

7001 

I AC 

1756 

03154 

7170 

CLL CML 

1759 

03155 

3360 

DC A 

1760 

03156 

4517 

JMS I 

1761 

03157 

2564 

5LITRL 

1762 

03160 

0000 

0 

1763 

03161 

4767' 

JM$ 

1764 

03162 

7130 

CLL CML 

1765 

03163 

5307 

JMP 


QNUMBER /LOOK FOR LITERAL 
NOTNUM /NOT A NUMBER 
QLUKUP2 /SEARCH LITERAL TABLE 


NEW V AR /IF NEW, GIVE IT NUMBER 
0N5TAK /GO PUT IT ONTO THE STACK 
Q5TRING /LOOK FOR STRING LITERAL 
MISARG /NO, MISSING ARG 
WORD 1 /GET -NUMBER WORDS - 1 

CMA RAR 

,♦3 /FOR LOOKUP 
QLUKUP2 /LOOK UP LITERAL 


NWSVAR /If NEW, GIVE IT NUMBER 
RAR /SET TYPE BIT FOR STRING 

0N8TAK /PUT INFO ONTO STACK 
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1767 

03167 

4236 






1768 

03170 

4223 






1769 

03171 

2752 






1770 

03172 

7774 






1771 

03173 

2663 






1772 

03174 

3000 






1773 

03175 

3200 






177a 

03176 

6640 






1775 

03177 

1000 






1776 


3200 


PAGE 




1777 

03200 

1030 

DOCALL , 

TAD 


LEFT 

/IS THIS LEFT SIDE 7 

1778 

03201 

7700 


SMA 

CLA 


/IF YES, FUN ILLEGAL 

1779 

03202 

4210 


JMS 


QUTCAL 

/GENERATE CALL 

1780 

03203 

7410 


SKR 



/SKIP IF ERROR 

1781 

03204 

5777* 


JMP 


0PR6R 

/GO LOOK FOR OPERATOR 

1782 

03205 

4473 


JMS 

I 

QERMSG 

/BAD FUNCTION REFERENCE 

1783 

03206 

0622 


0622 




1784 

03207 

5776* 


JMP 


SADEXP 


1785 

03210 

0000 

outcal, 

0 



/GENERATE FUN CALL t TYPE, 

1786 







/SYMBOL AND TEMP ARE INPUTS 

1787 

03211 

1027 


TAD 


SYMBOL 

/SAVE FUNCTION NUMBER AROUND SAVAC 

1788 

03212 

3336 


DC A 


FUNNUM 


1789 

03213 

4524 


JMS 

I 

QSAVAC 

/SAVE SECOND FROM TOP 

1790 

03214 

7775 


-3 




1791 

03215 

1336 


TAD 


FUNNUM 

/SETUP FOR FINDING FUNCTION 

1792 

03216 

3134 


DCA 


WORD l 

/INFO BLOCK 

1793 

03217 

4517 


JMS 

I 

QLUKUP2 

/ON THE FUNCTION LIST 

1794 

03220 

2570 


FUNCTN 



1795 

03221 

7777 


• 1 




1796 

03222 

5610 


JMP 

I 

OUTCAL 

/UNDEFINED FUNCTION 

1797 

03223 

1027 


TAD 


SYMBOL 

/CHECK NUMBER OF ARGS 

1798 

03224 

1021 


TAD 


TEMP 


1799 

03225 

7640 


SZA 

CLA 



1800 

03226 

5610 


JMP 

I 

OUTCAL 


1801 

03227 

4520 

MOVARG, 

JMS 

I 

QLOAD 

/GET TOP OF STACK INTO AC 

1802 

03230 

4070 


JMS 


SETFLD 

/GET FIELD OF FORMAL-P ARAMS 

1803 

03231 

1410 


TAD 

I 

X10 

/GET FIRST ONE 

1804 

03232 

6201 


CDF 




1805 

03233 

3021 


DCA 


TEMP 


1806 

03234 

7130 


CLL 

CML 

RAR 

/COMPARE TYPE OF ARG 

1807 

03235 

0056 


AND 


TYPE 1 

/WITH THAT OF FORMAL PARAMETER 

1808 

03236 

1021 


TAD 


TEMP 


1809 

03237 

7710 


SPA 

CLA 


/THEY MUST MATCH 

1810 

03240 

5610 


JMP 

I 

OUTCAL 

/(THEY DON'T) 

1811 

03241 

7132 


CLL 

CML 

RTR 

/SHOULD WE LEAVE IT IN THE AC ? 

1812 

03242 

0021 


AND 


TEMP 


1813 

03243 

7640 


SZA 

CLA 



1814 

03244 

5253 


JMP 


OKINAC 

/YES, SAVES AN INSTRUCTION 

1815 

03245 

1056 


TAD 


TYPEt 

/SET MOOE 

1816 

03246 

4476 


JMS 

I 

QMQDSET 

/APPROPRIATELY 

1817 

03247 

7150 


CLL 

CM A 

RAR 

/3777 

1818 

03250 

0021 


AND 


TEMP 

/GET 5YM NUMBER 

1819 

03251 

1375 


TAD 


CFSTA 

/STORE VALUE IN FORM PARAM 

1820 

03252 

4500 


JMS 

I 

QOUTWRD 
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1621 

03253 

2027 

OKINAC, 

ISZ 


1622 

03254 

5227 


JMP 


1623 

03255 

4070 


JMS 


1624 

03256 

1410 


TAD 

I 

1625 

03257 

3056 


OCA 


1626 

03260 

6201 


CDF 


1627 

03261 

1026 


TAD 


1628 

03262 

1056 


TAD 


1629 

03263 

7710 


SPA 

CLA 

1630 

03264 

5610 


JMP 

I 

1831 

03265 

4476 


JMS 

I 

1632 

03266 

1134 


TAD 


1833 

03267 

7500 


SMA 


1634 

03270 

5303 


JMP 


1635 

03271 

2210 

FINCAL, 

ISZ 


1636 

03272 

4500 


JMS 

I 

1837 

03273 

1133 


TAD 


1838 

03274 

1056 


TAD 


1839 

03275 

3414 


DC A 

I 

1640 

03276 

3414 


DCA 

I 

1841 

03277 

7130 


CLL 

CML 

1642 

03300 

0056 


AND 


1643 

03301 

3055 


DCA 


1844 

03302 

5610 


JMP 

I 

1845 

03303 

4532 

CALLUF, 

JMS 

I 

1846 

03304 

1071 


TAD 


1847 

03305 

0374 


AND 


1848 

03306 

7106 


cu 

PTl 

1849 

03307 

1373 


TAD 


1850 

03310 

4500 


JMS 

I 

1851 

03311 

1010 


TAD 


1852 

03312 

7001 


I AC 


1853 

03313 

5271 


JMP 


1854 

03314 

0000 

FSUB1, 

0 


1855 

03315 

4505 


JMS 

I 

1856 

03316 

5323 


JMP 


1857 

03317 

4520 


JMS 

I 

1858 

03320 

1056 


TAD 


1859 

03321 

7700 


SMA 

CLA 

I860 

03322 

5714 


JMP 

I 

1861 

03323 

4473 

BADFOR, 

JMS 

I 

1662 

03324 

0620 


0620 

1863 

03325 

5510 


JMP 

I 

1864 

03326 

0000 

FSUB2, 

0 


1865 

03327 

4314 


JMS 


1866 

03330 

4772' 


JMS 


1867 

03331 

1027 


TAD 


1668 

03332 

1375 


TAD 


1869 

03333 

4500 


JMS 

I 

1870 

03334 

1027 


TAD 


1871 

03335 

5726 


JMP 

I 

1672 



funnum, 



1873 

03336 

0000 

NOREGS, 

0 


1874 

03337 

7201 


CLA 

I AC 

1875 

03340 

3063 


DCA 



SYMBOL /MORE ARGS 1 

MOVARG 

SETFLD 

X10 /GET TYPE OF FUNCTION 

TYPE1 /(ITS RESULT THAT IS) 

TYPE /IS TYPE OF FUNCTION 

TYPE 1 /SAME AS TYPE OF CALL 

OUTCAL /NO, ERROR 

QMODSET /ALL CALLS IN N MODE 

WORDl /CHECK FOR USER FUNCTION 

QALLUF /YES, DO SPECIAL CALL 
OUTCAL /FIX RETURN 
QOUTWRD /OUTPUT COOE 
0400 /SET TOP OF STACK 

TYPE1 

OSTACK /TO AC 

QSTACK /SYMBOL NUMBER IS MEANINGLESS 
RAR 

TYPE 1 /INTERPRETER MODE SAME 
MODE /AS FUNCTION TYPE 
OUTCAL /ON RETURN 
QNOREGS /FORGET REGS ON USER FUNC 
LUFLO /OUTPUT JSUB 
(70 /WITH POINTER TO 

/DOUBLE WORD 

(JSUB /VALUE OF LOCATION 
QOUTWRD /COUNTER FOR THE 
X10 /START OF THE 

/USER "OEF" INED FUNC 

FINCAL 

/FOR SUBROUTINE #1 
OEXPR /GET AN EXPRESSION 
BADFOR 

QLOAO /LOAD VALUE 
TYPE1 /MUST BE NUMERIC 

FSUB1 /OK 

QERMSG /BAD FOR LOOP PARAMETERS 
QREMARK 

/FOR SUBROUTINE #2 
FSUB1 /GET EXPR AND LOAD IT 
GENTMP /MAKE A TEMP FOR IT 
SYMBOL /STORE EXPR IN TEMP 
(FST A 
QOUTWRD 

SYMBOL /RETURN SLOT * 

FSUB2 

/FORGET REGISTORS 
/FILE NUMBER REG 

IFNREG 
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187fe 



/ 

CM A 


1877 



/ 

OCA 


1878 



/ 

CM A 


1879 



/ 

DC A 


1880 

03341 

5736 


JMP 

I 

1881 

03342 

4474 

CLOSE, 

JMS 

I 

1882 

03343 

7201 


CLA 

I AC 

1883 

03344 

4771* 


JMS 


1884 

03345 

1370 


tad 


1885 

03346 

4500 


JMS 

I 

1886 

03347 

5507 


JMP 

I 


/SUBSCRIPT REG #1 

SSREG1 

/SUBSCRIPT REG #2 

SSREG2 

NOREGS 

QLODSN /OUTPUT STMT NUMBER 

/NO COLON NEEDED AFTER FILE NUM 
GETFN /GET FILE NUM 
CCLOSEF /OUTPUT CLOSE 
QOUTWRD 

qnemlin 


/OS/8 BASIC COMPILER 
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1887 



/ CODE 

GENERATOR 


1888 

03370 

7434 






1889 

03371 

2111 






1890 

03372 

4200 






1891 

03373 

5000 






1892 

03374 

0070 






1893 

03375 

2400 






1899 

03376 

3122 






1895 

03377 

2663 






1896 


3400 


PAGE 



1897 

03400 

0000 

OUTOPR, 

0 



/OUTPUT CODE FOR OPERATOR 

1898 

03401 

3010 


DC A 


X10 

/SAVE POINTER TO SKELETON 

1899 

03402 

1410 


TAD 

I 

X10 

/GET CONTROL WORD 

1900 

03403 

7540 


SNA 

SZA 



1901 

03404 

5314 


JMR 


SPCIAL 

/TREAT AS SPECIAL CASE 

1902 

03405 

3028 


DC A 


TYPE 

/ITS THE TYPE ALLOWANCE 

1903 

03406 

1377 


TAD 


CXLOAD 

/GET SKEL AODRS 

1904 

03407 

3355 


DC A 


CASEMM 

/FOR THE THREE CASES 

1905 

03410 

1410 


TAD 

I 

X 1 0 


1906 

03411 

3354 


DCA 


casema 


1907 

03412 

1410 


TAD 

I 

X 1 0 


1908 

03413 

3356 


DCA 


CASEAM 


1909 

03414 

1026 


TAD 


TYPE 

/ENTER CORRECT MODE 

1910 

03415 

4476 


JMS 

I 

QMQOSET 


1911 

03416 

7144 


CLL 

CM A 

pal 

/GET THE SECOND OPERAND 

1912 

03417 

1014 


TAD 


OSTACK 


1913 

03420 

3014 


DCA 


OSTACK 


1919 

03421 

1014 


TAD 


OSTACK 


1915 

03422 

3010 


DCA 


X10 

/8 Y BACKING UP THE STACK 

1916 

03423 

1410 


TAD 

I 

X 1 0 

/TYPE 

1917 

03424 

3357 


DCA 


TYPE2 


1918 

03425 

1410 


TAD 

I 

X10 


1919 

03426 

3360 


DCA 


SYMBL2 

/SYMBOL NUMBER 

1920 

03427 

1357 


TAD 


TYPE2 


1921 

03430 

0376 


AND 


(3 


1922 

03431 

3021 


DCA 


TEMP 

/SS COUNT 

1923 

03432 

1357 


TAD 


TYPE2 

/LOOK AT OPERAND 2 

1924 

03433 

0133 


AND 


Q400 


1925 

03434 

7640 


SZA 

CLA 



1926 

03435 

5256 


JMP 


MAC 

/MUST BE CASE M,AC 

1927 

03436 

7132 


cu 

CML 

RTR 

/ITS IN MEMORY f IS IT SS'D 

1928 

03437 

0357 


AND 


TYPE2 


1929 

03440 

7650 


SNA 

CLA 



1930 

03441 

5245 


JMP 


A20K 

/NO, ITS SCALAR 

1931 

03442 

4512 


JMS 

I 

QLQAD5S 

/LOAD NECESSARY SS REGS 

1932 

03443 

2355 


ISZ 


CASEMM 

/FIXUP THE SKELETON POINTERS 

1933 

03444 

2356 


ISZ 


CASEAM 


1934 

03445 

4317 

A20K, 

JMS 


GET A 1 

/GET STUF FOR ARGl 

1935 

03446 

1056 


TAD 


TYPE 1 

/LOOK AT IT 

1936 

03447 

0133 


AND 


Q400 


1937 

03450 

7640 


SZA 

CLA 



1938 

03451 

5306 


JMP 


ACM 

/ITS CASE AC,M 

1939 

03452 

1755 

MM, 

TAD 

I 

CASEMM 

/ITS CASE M f M LOAD OPERAND 2 

1940 

03453 

1360 


TAD 


SYMSL2 


1941 

03454 

4500 


JMS 

I 

qqutwrd 
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1943 

03456 

431/ 

MAC, 

JMS 


1944 

03457 

7132 


CLL 

CML 

1945 

03460 

0056 


AND 


1948 

03461 

7650 


SNA 

CLA 

1947 

03462 

5265 


JMP 


1948 

03463 

4512 


JMS 

I 

1949 

03464 

2354 


ISZ 


1950 

03465 

1754 

AlOK, 

TAD 

I 

1951 

03466 

1057 


TAD 


1952 

03467 

4500 

TYPCHK, 

JMS 

I 

1953 

03470 

7130 


CLL 

CML 

1954 

03471 

0056 


AND 


1955 

03472 

1357 


TAD 


1956 

03473 

7710 


SPA 

CLA 

1957 

03474 

5311 


JMP 


1958 

03475 

1026 


TAD 


1959 

03476 

1056 


TAD 


1960 

03477 

7710 


SPA 

CLA 

1961 

03500 

5311 


JMP 


1962 

03501 

1133 


TAD 


1963 

03502 

1026 


TAD 


1964 

03503 

3414 


DC A 

I 

1965 

03504 

3414 


DCA 

I 

1966 

03505 

5600 


JMP 

I 

1967 

03506 

1756 

ACM, 

TAD 

I 

1968 

03507 

1360 


TAD 


1969 

03510 

5267 


JMP 


1970 

03511 

4473 

MIXED, 

JMS 

I 

1971 

03512 

1524 


152a 

1972 

03513 

5600 


JMP 

I 

1973 

03514 

1410 

SPCIAL, 

TAD 

I 

1974 

03515 

3021 


DCA 


1975 

03516 

5421 


JMP 

I 

1976 

03517 

0000 

GETAl, 

0 


1977 

03520 

7144 


CLL 

CMA 

1978 

03521 

1014 


TAD 


1979 

03522 

3014 


DCA 


1980 

03523 

1019 


TAD 


1981 

03524 

3011 


DCA 


1982 

03525 

1411 


TAD 

I 

1983 

03526 

3056 


DCA 


1984 

03527 

1411 


TAD 

I 

1985 

03530 

3057 


DCA 


1986 

03531 

1056 


TAD 


1987 

03532 

0376 


AND 


1988 

03533 

3021 


DCA 


1989 

03534 

5717 


JMP 

I 

1990 

03535 

4524 

UMRTNE, 

JMS 

I 

1991 

03536 

7775 


-3 


1992 

03537 

4520 


JMS 

I 

1993 

03540 

3026 


OCA 


1994 

03541 

3357 


DCA 


1995 

03542 

1375 


TAD 


1996 

03543 

5267 


JMP 



GET A 1 /GET STUF FRO ARG 1 

RTR /IS IT SS'D 1 

TYPE 1 

AlOK /NO, ITS SCALAR 

QLOADSS /LOAD THE SS REGS 
CASEMA /BUMP SKELETON AODR 
CASEMA /GET CORRECT INSTRUCTION 

SYMBL1 /PLUS SYMBOL NUMBER 

QOUTWRO /OUTPUT IT 

RAR /TYPES OF OPERANDS MUST MATCH 

TYPE 1 

TYPE2 

MIXED /THEY DON'T 

TYPE /TYPE OF OPERATOR 

TYPE 1 /MUST MATCH 

/THAT OF OPERANDS 
MIXED /THEY DON'T 

0400 /GENERATE STACK ENTRY 

TYPE 
OSTACK 

OSTACK /THIS IS SAFE 
QUTOPR 

CASEAM /ITS CASE AC,M 

SYMBL2 /GEN OPERATION FOR OPERAND 2 

TYPCHK /GO FINISH IT UP 

OERMSG /MIXED TYPES 

OUTOPR 

X10 /GET ADDR OF SPECIAL RTNE 

TEMP /(PLUS 1 FROM THE TYPE WORD) 
TEMP /HANDLE SPECIAL CASE 

/GET STUFF FOR ARG 1 
RAL /BACK UP STACK 

OSTACK 
OSTACK 
OSTACK 
XU 

Xlt /GET TYPE 1 

TYPE 1 

Xll /GET SYMBL1 

SYMBLl 

TYPE 1 /GET SS COUNT 

(3 

TEMP 
GET A 1 

QSAVAC /SAVE CURRENT AC IF NEEDED 

OLOAD /GET ARG IN AC 

TYPE /TYPE MUST BE NUMERIC 

TYPE2 

(FNEG /DO NEGATE 

TYPCHK 
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1997 

03544 

3026 

EXPRTN, 

OCA 


TYPE 

/SET FUNC TYPE 

1998 

03545 

7126 


CLL 

CML RTL 

/SET NUMBER OF ARGS 

1999 

03546 

3021 


OCA 


TEMP 



2000 

03547 

1374 


TAD 


(FUNC1+60 


2001 

03550 

3027 


DCA 


SYMBOL 

/EXP2 


2002 

03551 

4773* 


JMS 


QUTCAL 

/OUTPUT 

FUNCTION CAUL 

2003 

03552 

5311 


JMP 


MIXED 

/ERROR 


2004 

03553 

5600 


JMP 

I 

OUTOPR 

/DONE 


2005 

03554 

0000 

CASEMA* 

0 





2008 

03555 

0000 

CASEMM, 

0 





2007 

03556 

0000 

C ASEAM* 

0 





2008 

03557 

0000 

TYPE2* 

0 





2009 

03560 

0000 

SYMBL2* 

0 





2010 

03561 

4479 

return* 

JMS 

I 

QLQDSN 

/OUTPUT 

STMT NUM LOAD 

2011 

03562 

4476 


JMS 

I 

QMODSET 

/ALWAYS 

RETURN IN N MOOE 

2012 

03563 

1372 


TAD 


(RET-RNDO 


2013 

03564 

1371 

RANDOM* 

TAD 


CRNOO-STOP 


2014 

03565 

1370 

STOPX * 

TAD 


(STOP 

/RETURN, 

randomize, or stop 

2015 

03566 

4500 


JMS 

I 

QOUTWRO 



2016 

03567 

5507 


JMP 

I 

QNEWLIN 
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2017 / LETTER ANO DIGIT SCANNERS 

2018 03570 7441 

2019 03571 7760 

2020 03572 7763 

2021 03573 3210 

2022 03574 7476 

2023 03575 7403 

2024 03576 0003 

2025 03577 0770 


2026 


3600 


PAGE 


2027 

03600 

0000 

LETTER , 

0 


2028 

03601 

4502 


JMS 

I 

2029 

03602 

5600 


JMP 

I 

2030 

03603 

1377 


TAD 


2031 

03604 

7500 


SMA 


2032 

03605 

5214 


JMP 


2033 

03606 

1376 


TAD 


2034 

03607 

7510 


SPA 


2035 

03610 

5214 


JMP 


2036 

03611 

0375 


AND 


2037 

03612 

2200 


xsz 


2038 

03613 

5600 


JMP 

I 

2039 

03614 

4525 

NOLETR, 

JMS 

I 

2040 

03615 

5600 


JMP 

I 

2041 

03616 

0000 

DIGIT, 

0 


2042 

03617 

4502 


JMS 

I 

2043 

03620 

5616 


JMP 

I 

2044 

03621 

1374 


TAD 


2045 

03622 

7100 

07100, 

CLl 


2046 

03623 

1373 


TAD 


2047 

03624 

7420 


SNL 


2048 

03625 

5230 


JMP 


2049 

03626 

2216 


ISZ 


2050 

03627 

5616 


JMP 

I 

2051 

03630 

4525 

NQDIGT, 

JMS 

X 

2052 

03631 

5616 


JMP 

I 


QGETC 

/SKIP ON LETTER 

LETTER 

/NO LETTER 

t-133 

/MUST BE .LT, 133 

NOLETR 

(133-100/MUST BE ,GT. 100 

NOLETR 

(77 

/RE3TQRE b BITS 

LETTER 

LETTER 

/BUMP RETURN ADOR 

0SACK1 

LETTER 

QGETC 

/PUT CHAR BACK 

/SKIP ON DIGIT 

DIGIT 

/NO DIGIT 

(-75 

/MUST BE .LT. 72 

/(USED AS LITERAL BY "TTY") 

(72-60 

/MUST BE ,GE. 60 

NODIGT 

/NOPE 

DIGIT 

DIGIT 

/RETURN DIGIT MINUS 60 

Q3ACK1 

DIGIT 

/PUT IT BACK 
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2053 / STATEMENT NUMBER GETTER 

2054 03632 0000 SNUM, 0 /GET A STATEMENT NUMBER 


2055 

03633 

3021 


DCA 


2056 

03634 

4531 


JMS 

I 

2057 

03635 

5632 


JMP 

I 

2056 

03636 

3135 


DCA 


2059 

03637 

1135 


TAD 


2060 

03640 

7104 


CLL 

RAL 

2061 

03641 

1372 


TAD 


2062 

03642 

3272 


DCA 


2063 

03643 

2232 


XSZ 


2064 

03644 

1371 


TAD 


2065 

03645 

3022 


DCA 


2066 

03646 

3134 


DCA 


2067 

03647 

4531 

SNLOOP , 

JMS 

I 

2068 

03650 

5271 


JMP 


2069 

03651 

3136 


DCA 


2070 

03652 

1371 


TAD 


2071 

03653 

3137 


DCA 


2072 

03654 

1135 

SHIFT, 

TAD 


2073 

03655 

7104 


CLL 

RAL 

2074 

03656 

3135 


DCA 


2075 

03657 

1134 


TAD 


2076 

03660 

7004 


RAL 


2077 

03661 

3134 


DCA 


2078 

03662 

2137 


ISZ 


2079 

03663 

5254 


JMP 


2080 

03664 

1135 


TAD 


2081 

03665 

1136 


TAD 


2062 

03666 

3135 


DCA 


2063 

03667 

2022 


ISZ 


2084 

03670 

5247 


JMP 


2085 

03671 

4517 

GOTSN, 

JMS 

I 

2086 

03672 

0000 

BUCKET, 

0 


2067 

03673 

7776 


*»s 


2088 

03674 

5316 


JMP 


2089 

03675 

7130 


CLL 

CML 

2090 

03676 

0027 


and 


2091 

03677 

0021 


AND 


2092 

03700 

7640 


SZA 

CLA 

2093 

03701 

5325 


JMP 


2094 

03702 

1010 


TAD 


2095 

03703 

3022 


DCA 


2096 

03704 

4070 


JMS 


2097 

03705 

1021 


TAD 


2098 

03706 

1027 


TAD 


2099 

03707 

3422 


DCA 

I 

2100 

03710 

6201 

FINSN, 

CDF 


2101 

03711 

1071 


TAD 


2102 

03712 

0370 


AND 


2103 

03713 

7106 


CLL 

RTL 

2104 

03714 

3021 


DCA 


2105 

03715 

5632 


JMP 

I 

2106 

03716 

4070 

NEWSN, 

JMS 


2107 

03717 

1021 


TAD 



TEMP /SAVE DEFINED SWITCH 

QDIGIT /GET FIRST DIGIT 
SNUM /NO STATEMENT NUMBER 

W0R02 /THIS WILL BE THE BUCKET 

W0RP2 

/TWO WORDS PER BUCKET 

(SNUMS 

BUCKET 

SNUM /OK f ITS A STMT NUMBER 

(*4 /FIVE DIGITS MAX 

TEMP2 

WORD! /CLEAR TOP WORD 

QDIGIT /GET NEXT DIGIT 

GOTSN /END OF NUMBER 

WORD3 /SAVE IT 

(•4 /SET SHIFT COUNT 

ACO 

W0RD2 /SHIFT LEFT ONE BIT 

WORD2 
WORD 1 

WORD 1 

ACO /BUMP SHIFT COUNTER 

SHIFT 

W0RD2 /PUT IN NEW DIGIT 

W0R03 

WORDS 

TEMPS /BUMP DIGIT COUNT 

SNLOOP 

QLUKUP2 /FIND STMT NUMBER 


NEWSN /ITS A NEW STMT NUM 

RAR /CHECK FOR MULTIPLY DEFINED 

SYMBOL 

TEMP 

MDLA9L /YES, IT IS 

X10 /GET ADDR OF LABEL VALUE 

TEMP2 

SETFLD /GET TO FIELD OF ENTRY 
TEMP /OR IN THESE BITS 

SYMBOL 
TEMP2 

LUFLO /GET FIELD BITS 

(70 

TEMP /INTO A CONVENIENT 

SNUM /PLACE 
SETFLD /GET FIELD 
TEMP /PUT IN BITS 
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2108 

03720 

3416 


DC A 

I 

NEXT 


2109 

03721 

1016 


TAD 


NEXT 

/SAVE N3 AODR 

2110 

03722 

3022 


DC A 


TEMPS 


2111 

03723 

3416 


DC A 

I 

NEXT 

/I EXTRA WORD 

2112 

03724 

5310 


JMP 


FINSN 


2113 

03725 

4473 

MOLABLi 

JMS 

I 

QERMSG 

/MULTIPLY defined 

2114 

03726 

1504 


1504 



/LABEL 

2115 

03727 

5632 


JMP 

I 

SNUM 


2118 

03730 

0000 

TTY, 

0 



/CONVERT TO ASCII AND PRINT 

2117 

03731 

0373 


AND 


C77 

/SIX BITS ONLY 

2118 

03732 

1367 


TAD 


040 

/WHAT SIDE OF FORTY ? 

2119 

03733 

7510 


SPA 




2120 

03734 

1222 


TAD 


07100 

/LOW SIDE 

2121 

03735 

1366 


TAD 


(240 

/HIGH SIDE 

2122 

03736 

4340 


JMS 


TTX 

/PRINT CHAR 

2123 

03737 

5730 


JMP 

I 

TTY 

/RETURN 

2124 

03740 

0000 

TTX, 

0 



/PRINT CHAR ON TTY 

2125 

03741 

7410 


SKP 



/(CONTROL 0 ZEROES THIS WORD) 

2126 

03742 

5346 


JMP 


• *4 

/(THUS KILLING ERROR REPORTING) 

2127 

03743 

6041 


TSF 




2128 

03744 

5343 


JMP 


• *i 


2129 

03745 

6046 


TLS 




2130 

03746 

7200 


cla 




2131 

03747 

5740 


JMP 

I 

TTX 
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2132 



/ CHAIN 

PROCESSOR 



2133 

03750 

4474 

CHAIN, 

JMS I 

QLQDSN 

/OUTPUT STMT 

NUMBER 

2134 

03751 

4505 


JMS l 

QEXPR 

/GET CHAIN STRING 

2135 

03752 

5510 


JMP I 

QREMARK 



2136 

03753 

4520 


JMS I 

QUOAD 

/INTO SAC 


2137 

03754 

1056 


TAD 

TYPE1 

/TYPE MUST BE 

STRING 

2136 

03755 

7700 


SMA CLA 




2139 

03756 

4473 


JMS I 

QERMSG 

/IT WASN'T 


2140 

03757 

0616 


0616 


/COK IF ERROR 

CODE IS NOP) 

2141 

03760 

1365 


TAD 

(CHN 

/OUTPUT CHAIN 

OPCODE 

2142 

03761 

4500 


JMS I 

QQUTaRD 



2143 

03762 

5507 


JMP I 

qnemlin 



2144 

03763 

3000 

xi sue, 

FISUBJ AISUB 



2145 

03764 

6400 
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2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 
2161 
2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

2172 

2173 

2174 

2175 

2176 

2177 

2178 

2179 
2160 
2181 
2162 

2183 

2184 

2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 

2194 

2195 

2196 

2197 

2198 

2199 

2200 


/ SEVERAL SHOW T UTILITY 


03765 

7414 





03766 

0240 





03767 

7740 





03770 

0070 





03771 

7774 





03772 

2532 





03773 

0012 





03774 

7706 





03775 

0077 





03776 

0033 





03777 

7645 






4000 


PAGE 



04000 

0000 

BACK 1 f 

0 



04001 

7240 


CIA 

CM A 


04002 

1020 


TAD 


NCHARS 

04003 

3020 


DC A 


NCHARS 

04004 

7240 


CIA 

CMA 


04005 

1017 


TAD 


CHRPTR 

04006 

3017 


DCA 


CHRPTR 

04007 

5600 


JMP 

I 

BACK 1 

04010 

0000 

GETCWB f 

0 



04011 

2020 


ISZ 


NCHARS 

04012 

5216 


JMP 


• *4 

04013 

7240 


CLA 

CMA 


04014 

3020 


DCA 


NCHARS 

04015 

5610 


JMP 

I 

GETCM8 

04016 

2210 


ISZ 


GETCWB 

04017 

1417 


TAD 

I 

CHRPTR 

04020 

5610 


JMP 

I 

GETCWB 

04021 

0000 

SAVECP, 

0 



04022 

1020 


TAD 


NCHARS 

04023 

3365 


DCA 


NCSA VE 

04024 

1017 


TAD 


CHRPTR 

04025 

3366 


DCA 


CPSAVE 

04026 

5621 


JMP 

I 

SAVECP 

04027 

0000 

RESTCP, 

0 



04030 

1366 


TAD 


CPSAVE 

04031 

3017 


DCA 


CHRPTR 

04032 

1365 


TAD 


NCSA VE 

04033 

3020 


DCA 


NCHARS 

04034 

5627 


JMP 

I 

RESTCP 

04035 

0000 

GETC , 

0 



04036 

2020 


ISZ 


NCHARS 

04037 

5243 


JMP 


• ♦4 

04040 

7240 


CLA 

CMA 


04041 

3020 


DCA 


NCHARS 

04042 

5635 


JMP 

I 

GETC 

04043 

1417 


TAD 

I 

CHRPTR 

04044 

1377 


TAD 


(-40 

04045 

7450 


SNA 



04046 

5236 


JMP 


GETC+i 

04047 

1376 


TAD 


(40 

04050 

2235 


ISZ 


GETC 

04051 

5635 


JMP 

I 

GETC 


ROUTINES 


/BACK UP ONE CHAR 

/GET A CHARACTER (PRESERVE BLANKS) 

/RESET NCHARS 

/GET THE CHAR 
/SAVE CHAR POSITION 

/RESTORE CHAR POS 

/GET A CHARACTER (IGNORING BLANKS) 

/IS IT A BLANK 

/YES IGNORE IT 
/FIX CHAR 
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2201 

04052 

0000 

POP , 

0 



/GET TOP OF STACK 

2202 

04053 

1015 


TAD 


STACK 


2203 

04054 

3262 


OCA 


PUSH 


2204 

04055 

7240 


CLA 

CM A 



2205 

04056 

1015 


TAO 


STACK 


2206 

04057 

3015 


OCA 


STACK 

/DECREMENT STACK POINTER 

2207 

04060 

1662 


TAO 

I 

PUSH 


2208 

04061 

5652 


JMP 

I 

POP 


2209 

04062 

0000 

PUSH, 

0 



/PUT AC ONTO STACK 

2210 

04063 

3415 


OCA 

I 

STACK 

/STORE 

2211 

04064 

1375 


TAO 


C«$tacka»stakszm 

2212 

04065 

1015 


TAO 


stack 

/CHECK FOR OVERFLOW 

2213 

04066 

7710 


SPA 

CLA 



2214 

04067 

5662 


JMP 

I 

PUSH 

/OK , RETURN 

2215 

04070 

4473 

STKOVR, 

JMS 

I 

QERMSG 


2216 

04071 

2004 


2004 



2217 

04070 

5406 


JMP 

I 

X ABORT 

/ABORT COMPILATION 

2218 

04073 

0000 

PUSHO, 

0 



/PUSH OPERANO STACK 

2219 

04074 

3414 


OCA 

I 

OSTACK 

/PUSHIT 

2220 

04075 

1374 


TAO 


(•STACKO-STOKSZM 

2221 

04076 

1014 


TAO 


OSTACK 

/CHECK FOR STACK OVERFLOW 

2222 

04077 

7710 


SPA 

CLA 



2223 

04100 

5673 


JMP 

I 

PUSHO 


2224 

04101 

5270 


JMP 


STKOVR 

/TOO FULL 

2225 

04102 

0000 

COMARP, 

0 



/SKIP ON COMA OR RITE PAREN 

2226 

04103 

4502 


JMS 

I 

QGETC 

/GET CHAR 

2227 

04104 

5702 


JMP 

I 

COMARP 


2228 

04105 

1373 


TAD 


("51 


2229 

04106 

7450 


SNA 




2230 

04107 

2302 


ISZ 


COMARP 

/RITE PAREN, SKIP 2 

2231 

04110 

7440 


SZA 




2232 

04111 

1372 


TAD 


(51*54 

/CHECK FOR , 

2233 

04112 

7450 


SNA 




2234 

04113 

2302 


ISZ 


COMARP 

/, SKIP 1 

2235 

04114 

7640 


SZA 

CLA 



2236 

04115 

4525 


JMS 

I 

QBACK1 

/NEITHER PUT BACK 

2237 

04116 

5702 


JMP 

I 

COMARP 


2238 

04117 

0000 

LOAD, 

0 



/LOAD SAC OR FAC 

2239 

04120 

4511 


JMS 

I 

QGETA1 

/GET TOP OF STACK 

2240 

04121 

1056 


TAD 


TYPE 1 

/SET MOPE 

2241 

04122 

4476 


JMS 

I 

QMODSET 


2242 

04123 

1056 


TAD 


TYPE! 

/IS IT IN THE AC? 

2243 

04124 

0133 


AND 


9480 


2244 

04125 

7640 


SZA 

CLA 



2245 

04126 

5717 


JMP 

I 

LOAD 

/YUP 

2246 

04127 

7132 


CLL 

CML 

RTR 

/SUBSCRIPTED ? 

2247 

04130 

0056 


AND 


TYPE1 


2248 

04131 

7650 


SNA 

CLA 



2249 

04132 

5335 


JMP 


. + 3 

/NO 

2250 

04133 

4512 


JMS 

I 

OLOADSS 

/FILL SS REGS 

2251 

04134 

1371 


TAD 


(AFLDA* 

FLOA 

2252 

04135 

1370 


TAD 


(FLOA 

/ARRAY OR SCALAR LOAD 

2253 

04136 

1057 


TAO 


SYMBL1 

/PLUS SYMBOL NUMBER 

2254 

04137 

4500 


JMS 

I 

QOUTWRO 


2255 

04140 

5717 


JMP 

I 

LOAD 
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2258 

04141 

5003 

IFOPS f 

JNEJ-7476 

/<> 

2257 

04142 

0302 




2258 

04143 

5003 


JNEj-7674 

/>< 

2259 

04144 

0104 




2280 

04145 

5002 


JGEf-7576 

/«> 

2281 

04146 

0202 




2282 

04147 

5002 


JGEf-7675 

/>* 

2283 

04150 

0103 




2264 

04151 

5007 


JLej-7574 

/a< 

2285 

04152 

0204 




2268 

04153 

5007 


JL£f *7475 

/<* 

2267 

04154 

0303 




2268 

04155 

0000 


0 


2269 

04156 

5006 


JEQJ*7500 

/* 

2270 

04157 

0300 




2271 

04160 

5004 


JGTJ-76SS0 

/> 

2272 

04161 

0200 




2273 

04162 

5005 


JLTl-7400 

/< 

2274 

04163 

0400 




2275 

04164 

0000 


0 


2276 

04165 

0000 

NCSA VE * 

0 


2277 

04166 

0000 

CPSAVE, 

0 




/OS/8 BASIC COMPILE* 


PAL8-V8 
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2278 

2279 

2280 
2281 
2282 

2283 

2284 

2285 
2288 

2287 

2288 

2289 

2290 

2291 

2292 

2293 

2294 

2295 

2296 

2297 

2298 

2299 

2300 

2301 

2302 

2303 

2304 

2305 

2306 

2307 

2308 

2309 

2310 

2311 04227 

2312 04230 

2313 09231 

2314 04232 

2315 04233 

2316 04234 

2317 04235 


2318 

04236 

0000 

NWSVAR, 

0 


2319 

04237 

1041 


TAD 


2320 

04240 

1377 


TAD 


2321 

04241 

3027 


DCA 


2322 

04242 

1027 


TAD 


2323 

04243 

4070 


JMS 


2324 

04244 

3416 


DCA 

I 

2325 

0424S 

6201 


CDF 


2325 

04246 

2041 


ISZ 


2327 

04247 

5636 


JMP 

I 

2328 

04250 

5776' 


JMP 


2329 

04251 

0000 

SAVAC, 

0 


2330 

04252 

1651 


TAD 

I 

2331 

04253 

1014 


TAD 


2332 

04254 

2251 


ISZ 



ROUTINES 


/GENERATE A TEMP 

STRTMP /ITS A STRING TEMP 
TMPCNT 

TMPCNT /BUMP COUNT 
NAMEi 

0LUKUP2 /LOOK UP THIS TEMP 


NEWVAR /NEW ONE ON ME 

GENTMP 

STMPCT 

STMPCT /BUMP COUNT 
NAME1 

0LUKUP2 /LOOK UP THIS TEMP 


NWSVAR /NEW STRING TEMP 
GENTMP 

/MAKE SYM NUM FOR VAR 
VARCNT /PUT SYM NUM 
(401 

SYMBOL /INTO SYMBOL 
SYMBOL /AND INTO ST ENTRY 
SETFLD 
NEXT 

VARCNT /BUMP COUNT 

NEWVAR /RETURN WITH SYM NUM 

STOVER /S,T. OVERFLOW 

/make SYM NUM FOR VARS 
SVCNT /PUT SYM NUM 
(401 
SYMBOL 

SYMBOL /INTO SYMBOL ANO 
SETFLO 

NEXT /S.T, ENTRY 

SVCNT /OVERFLOW ? 

NWSVAR /NO, WE'RE OK 
STOVER 

/SAVE FAC (OR SAC) IF NECESSARY 
SAVAC /GET ENTRY POINTER 
OSTACK 
SAVAC 


/ TEMP GENERATORS AND AC SAVING 


04170 

21300 



04171 

4640 



04172 

7775 



04173 

7727 



04174 

6601 



04175 

0601 



04175 

0040 



04177 

7740 




4200 


PAGE 

04200 

0000 

GENTMP, 

0 

04201 

7640 


SZA CLA 

04202 

5213 


JMP 

04203 

1033 


TAD 

04204 

2033 


ISZ 

04205 

3134 


DCA 

04205 

4517 


JMS I 

04207 

2556 


TEMPS 

04210 

7777 


-1 

04211 

4223 


JMS 

04212 

5600 


JMP I 

04213 

1035 

STRTMP, 

TAD 

04214 

2035 


ISZ 

04215 

3139 


DCA 

04215 

4517 


JMS I 

04217 

2560 


STEMPS 

04220 

7777 


*1 

04221 

4236 


JMS 

04222 

5600 


JMP I 

04223 

0000 

NEWVAR, 

0 

04224 

1040 


TAD 

04225 

1377 


TAD 

04225 

3027 


DCA 


1027 

4070 

3416 

6201 

2040 

5623 

5776' 


TAD 

JMS 

DCA I 

CDF 

ISZ 

JMP I 

JMP 
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2333 

04255 

3300 


OCA 


3VTEMP 

/ ADDR OF TYPE WORD 

2334 

04256 

1700 


TAP 

I 

SVTEMP 

/LOOK AT IT 

2335 

04257 

0133 


AND 


Q400 


2336 

04260 

7650 


SNA 

CLA 



2337 

04261 

5651 


JMP 

I 

SAVAC 

/NOT IN AC 

233S 

04262 

7130 


CLL 

CML 

RAR 

/SAVE STRING BIT ONLY 

2339 

04263 

0700 


AND 

I 

SVTEMP 

/OF TYPE WORD 

2340 

04264 

3700 


OCA 

I 

SVTEMP 


2341 

04265 

1700 


TAD 

1 

SVTEMP 


2342 

04266 

4200 


JMS 


GENTMP 

/GENERATE TEMP 

2343 

04267 

1700 


TAD 

I 

SVTEMP 


2344 

04270 

4476 


JMS 

I 

QMODSET 

/SET MODE 

2345 

04271 

1301 


TAD 


XSTOR 


2346 

04272 

1027 


TAD 


SYMBOL 

/GENERATE STORE 

2347 

04273 

4500 


JMS 

I 

QOUTWRD 


2340 

04274 

1027 


TAD 


SYMBOL 

/RETURN S.T, NUMBER 

2349 

04275 

2300 


ISZ 


SVTEMP 

/MOVE TO SYMBOL NUM WORD 

2350 

04276 

3700 


DC A 

I 

SVTEMP 

/SAVE THE TEMP NUM THERE 

2351 

04277 

5651 


JMP 

I 

SAVAC 

/RETURN WITH SAVE MADE 

2352 

04300 

0000 

SVTEMP i 

0 




2353 

04301 

2400 

XSTOR, 

FSTAf AFSTA 


2354 

04302 

6700 







/OS/8 BASIC COMPILER 
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23SS 



/ SUBSCRIPT 

REGISTER LOADING ROUTINE 

235b 

04303 

0000 

LOADSS, 

0 



/LOAD SS REGS 

2357 

04304 

7144 


CLL 

CMA 

RAL 

/LOOK AT NUMBER OF SS 

2358 

04305 

1021 


TAD 


TEMP 


2359 

04306 

7650 


SNA 

CLA 



2360 

04307 

5314 


JMP 


L0D3SS 

/2 SS 

2361 

04310 

7420 


SNL 




2362 

04311 

5320 


JMP 


TOOMNY 

/MORE THAN 3 

2363 

04312 

4323 


JMS 


SSLOAD 

/LOAD SS REG 1 

2364 

04313 

5703 


JMP 

I 

LOADSS 


2365 

04314 

7201 

L0DS92 , 

CLA 

I AC 



2366 

04315 

4323 


JMS 


SSLOAD 

/LOAD SS REG 2 

2367 

04316 

4323 


JMS 


SSLOAD 

/NOW SS REG 1 

2368 

04317 

5703 


JMP 

I 

LOADSS 


2369 



SSTYPE, 





2370 

04320 

4473 

TOOMNY , 

JMS 

I 

QERMSG 

/SUBSCRIPTING ERROR 

2371 

04321 

2323 


2323 



2372 

04322 

5703 


JMP 

i 

LOADSS 


2373 

04323 

0000 

SSLOAD, 

0 



/LOAD A SS REG FROM TOP OF STACK 

2374 

04324 

3022 


DCA 


TEMPS 

/SS REG I OR 2 SWITCH 

2375 

04325 

7144 


CLL 

CMA 

RAL 

/BACK UP ONE ENTRY 

2376 

04326 

1014 


TAD 


OSTACK 

/ON THE OPERAND STACK 

2377 

04327 

3014 


DCA 


OSTACK 


2378 

04330 

1014 


TAD 


OSTACK 


2379 

04331 

3011 


DCA 


XU 

/USE XU TO GET STUFF 

2380 

04332 

1411 


TAD 

I 

XU 

/GET TYPE WORD 

2381 

04333 

7510 


SPA 




2382 

04334 

5320 


JMP 


SSTYPE 

/SS MUST BE A NUMBER 

2383 

04335 

0133 


AND 


Q400 

/GET AC BIT 

2384 

04336 

7640 


SZA 

CLA 



2385 

04337 

5347 


JMP 


SS IN AC 

/ITS IN THE AC 

23B6 

04340 

1022 


TAD 


TEMPS 


2387 

04341 

7640 


SZA 

CLA 



2388 

04342 

1375 


TAD 


(LSS2-LS51 

2389 

04343 

1374 


TAD 


CLSS1 

/LOAD REG 1 OR 2 ?? 

2390 

04344 

1411 


TAD 

I 

XU 

/ANYHOW, THIS IS THE SOURCE 

2391 

04345 

4500 


JMS 

I 

QQUTWRD 

/OUTPUT THE CODE 

2392 

04346 

5723 


JMP 

I 

SSLOAD 


2393 

04347 

1022 

SSINAC, 

TAD 


TEMP2 


2394 

04350 

1373 


TAD 


CLSS1AC 

/NOTE! LS$2AC«LSS1ACM 

2395 

04351 

4500 


JMS 

I 

QQUTWRD 

/SO OUTPUT ONE OF THEM 

2396 

04352 

5723 


JMP 

I 

SSLOAD 
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PALS- V 8 i 0/20/72 PAGE 32 


2397 

2398 

04373 

7406 

/INPUT DEVICE HANDLER 

2399 

04374 

4000 


2400 

04375 

0400 


2401 

04376 

2337 


2402 

04377 

0401 


2403 


4400 

ainoevh 

2404 

04400 

0000 

0 


/OS/8 BASIC COMPILER 
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2005 



/INITIALIZATION 

CODE FOR 

RUN CASE 

2406 


4600 


PAGE 



2407 

04600 

8212 

PUNNED, 

CIP 

10 

/COME HERE IF .« BCOMP 

2408 

04601 

4777 


JMS I 

(200 

/ CALL COMMAND DECODER 

2409 

04602 

0005 


5 



2410 

04603 

0201 


0201 


/ASSUMEO EXTENSION "BA" 

2411 

04604 

6221 


COF 

20 


2412 

04605 

1413 


TAD I 

X 1 3 


2413 

04606 

6211 


COF 

10 

/SAVE LOCATIONS 27774 THRU 27777 

2414 

04607 

3412 


OCA I 

X 1 2 

/THESE ARE THE BOS PARAMETERS 

241S 

04610 

2021 


ISZ 

TEMP 


2416 

04611 

5204 


JMP 

• •5 


2417 

04612 

6211 


COF 

10 


2418 

04613 

3410 


OCA I 

X 10 

/ZERO EDITOR BLOCK NUMBER 

2419 

04614 

6201 


CDF 



2420 

04615 

1411 

FINDSV, 

TAD I 

Xll 

/LOOKUP SOME SAVE FILES 

2421 

04616 

7450 


SNA 



2422 

04617 

5236 


JMP 

LUBUF 

/GO LOOK FOR BASIC. UF 

2423 

04620 

3225 


OCA 

XXXXSV 

/SAVE POINTER TO NAME 

2424 

04621 

7201 


CLA X AC 


/THEY* RE ON SYS 

2425 

04622 

6212 


C IF 

10 


2426 

04623 

4777 


JMS X 

(200 


2427 

04624 

0002 


2 



2428 

04625 

0000 

XXXXSV i 

0 



2429 

04626 

0000 


0 



2430 

04627 

5776* 


JMP 

NG 

/ERROR 

2431 

04630 

1225 


TAD 

XXXXSV 

/GET STARTING BLOCK 

2432 

04631 

7001 


X AC 


/PLUS 1 

2433 

04632 

6211 


CDF 

10 


2434 

04633 

3410 


OCA X 

X10 

/INTO INFO AREA 

2435 

04634 

6201 


CDF 



2436 

04635 

5215 


JMP 

FINDSV 

/LOOP 

2437 

04636 

7201 

LUBUF, 

CLA X AC 



2438 

04637 

6212 


CXF 

10 


2439 

04640 

4777 


JMS X 

(200 

/LOOKUP BASIC. UF 

2440 

04641 

0002 


2 



2441 

04642 

7562 


BUFN 


/(USER DEFINED FUNCTIONS] 

2442 

04643 

0000 


0 



2443 

04644 

5247 


JMP 

.♦3 

/OK IF NOT THERE 

2444 

04645 

1242 


TAD 

**3 

/GET STARTING BLOCK *1 

2445 

04646 

7001 


X AC 



2446 

04647 

6211 


CDF 

10 


2447 

04650 

3410 


DCA I 

X 1 0 

/INTO INFO BLOCK 

2448 

04651 

6201 

STRT3, 

CDF 



2449 

04652 

7201 


CLA I AC 


/ENTER TEMPORARY FILE 

2450 

04653 

6212 


CXF 

10 


2451 

04654 

4777 


JMS X 

(200 


2452 

04655 

0003 


3 



2453 

04656 

7566 

TMPBLK, 

TMPFIL 



2454 

04657 

0000 


0 



2455 

04660 

5776' 


JMP 

NG 


2456 

04661 

1256 


TAD 

TMPBLK 

/SAVE START OF TEMP FILE 

2457 

04662 

3775* 


DCA 

QUBLOK 


2458 

04663 

1256 


TAD 

TMPBLK 

/IN A COUPLE PLACES 

2459 

04664 

3046 


DCA 

BLOCK 




/05/8 BASIC COMPILER 


2 <160 

04865 

1257 

TAD 

2461 

04666 

3774* 

OCA 

2462 

04667 

5773* 

JMP 


PAL8-V8 10/30/72 PAGE 33-1 

TMPBIKM / ALSO THE SIZE 
OUSIZE 

GETDEV /GO FETCH DEVICE HANDLER 


/OS/S BASIC COMPILER PALS-VS 10/30/72 PAGE 3« 

2463 / NUMERIC CONVERSION ROUTINE (PART ONE) 

2464 04773 7032 

2465 04774 6506 

2466 04775 6475 

2467 04776 7120 

2468 04777 0200 


2469 


5000 


PAGE 



2470 

05000 

0000 

NUMBER, 

0 



/GENERAL NUMBER CONVERSION ROUTINE 

2471 

05001 

3023 


OCA 


OECPT 

/ZERO DECIMAL POINT SWITCH 

2472 

05002 

3134 


OCA 


WORD! 

/ZERO FAC 

2473 

05003 

3135 


DCA 


WQRD2 


2474 

05004 

3136 


DCA 


WORDS 


2475 

05005 

3137 


OCA 


ACO 


2476 

05006 

3212 


DCA 


SIGN 

/CLEAR SIGN SWITCH 

2477 

05007 

4502 


JMS 

I 

QGETC 

/GET A CHAR 

2478 

05010 

5600 


JMP 

I 

NUMBER 

/NO CHAR IS NO NUMBER 

2479 

05011 

4777* 


JMS 


CHKSGN 

/CHECK FOR SIGN 

2480 

05012 

0000 

sign, 

0 



/THIS SWITCH GETS SET 

2481 

05013 

3024 


OCA 


NDIGIT 

/ZERO DIGIT COUNT 

2482 

05014 

4531 

CONVLP, 

JMS 

I 

QDIGIT 

/GET A DIGIT 

2483 

05015 

5240 


JMP 


TRYDEC 

/IS THERE A DECIMAL POINT ? 

2484 

05016 

3355 


DCA 


NXTDGT 

/SAVE THE DIGIT 

2485 

05017 

2024 


ISZ 


NDIGIT 

/INCR NUMBER OF DIGITS 

2486 

05020 

1135 


TAD 


W0RD2 

/PREPARE TO MULT BY 10 

2487 

05021 

3141 


DCA 


0P2 


2488 

05022 

1136 


TAD 


WORD3 


2489 

05023 

3142 


DCA 


0P3 


2490 

05024 

1137 


TAD 


ACO 


2491 

05025 

3143 


DCA 


OPO 


2492 

05026 

4776 


JMS 

I 

(All 

/double FAC 

2493 

05027 

4776 


JMS 

z 

(AL1 

/DOUBLE AGAIN 

2494 

05030 

4775 


JMS 

I 

(0 ADD 

/TIMES FIVE 

2495 

05031 

4776 


JMS 

X 

(All 

/ONE MORE DOUBLING IS TIMES 10 

2496 

05032 

3141 


DCA 


0P2 


2497 

05033 

3142 


DCA 


OPS 

/PUT NEWEST DIGIT INTO OPERAND 

2498 

05034 

1355 


TAD 


NXTDGT 


2499 

05035 

3143 


DCA 


OPO 


2500 

05036 

4775 


JMS 

I 

(OADO 

/ADD IN NEWEST DIGIT 

2501 

05037 

5214 


JMP 


CONVLP 


2502 

05040 

1023 

TRYOEC, 

TAD 


DECPT 

/decimal already ? 

2503 

05041 

7640 


SZA 

CLA 



2504 

05042 

5256 


JMP 


TRYE2 

/YES, LOOK FOR EXPONENT 

2505 

05043 

4502 


JMS 

I 

QGETC 

/LOOK FOR 0 

2506 

05044 

5253 


JMP 


DIGTST 

/SEE IF THERE WAS ANYTHING 

2507 

05045 

1374 


TAD 


(•56 


2508 

05046 

7640 


SZA 

CLA 



2509 

05047 

5252 


JMP 


TRYE1 

/try for e 

2510 

05050 

2023 


ISZ 


DECPT 

/SET DECIMAL POINT SW 

2511 

05051 

5213 


JMP 


CONVLP" 

1/LOOP FOR OTHER DIGITS 

2512 

05052 

4525 

TRYE1, 

JMS 

I 

QBACK1 

/PUT BACK NON f 

2513 

05053 

1024 

DIGTST, 

TAD 


NOIGIT 

/ANY DIGITS YET ? 

2514 

05054 

7650 


SNA 

CLA 



2515 

05055 

S600 


JMP 

I 

NUMBER 

/NO, NO NUMBER 

2516 

05056 

4502 

TRYE2, 

JMS 

I 

QGETC 

/LOOK FOR E 

2517 

05057 

5300 


JMP 


NOEXP+1 

/GO HANDLE EXPONENT 
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2518 

05060 

1360 


TAD 


WST£P*2 

/USE PART OF "STEP" LITERAL 

2519 

05061 

7640 


SZA 

CLA 



2520 

05062 

5277 


JMP 


NOEXP 

/NO EXPONENT 

2521 

05063 

3267 

GETEXP, 

DC A 


ESIGN 

/ZERO EXPONENT SIGN SWITCH 

2522 

05064 

4502 


JMS 

I 

QGETC 

/GET A CHAR 

2523 

05065 

5277 


JMP 


NOEXP 

/TREAT AS NO EXPONENT 

2524 

05066 

4777* 


JMS 


CHKSGN 

/IS IT A SIGN 

2525 



FPRTNE, 





2526 

05067 

0000 

ESIGN , 

0 



/THIS IS THE SWITCH TO SET 

2527 

05070 

4773* 


JMS 


SMLNUM 

/GO GET THE EXPONENT 

2528 

05071 

1267 

FIXEXP, 

TAD 


ESIGN 

/CHECK EXPONENT SIGN 

2529 

05072 

7650 


SNA 

CLA 



2530 

05073 

5301 


JMP 


NOEXP*? 


2531 

05074 

1025 


TAD 


EXPDN 

/COMPLEMENT EXPONENT 

2532 

05075 

7041 


CIA 




2533 

05076 

7410 


SKP 




2534 

05077 

4525 

NOEXP, 

JMS 

I 

QBACX1 

/PUT BACK NON E 

2535 

05100 

3025 


DCA 


EXPON 

/ZERO EXPONENT 

2536 

05101 

1372 


TAD 


(43 

/NORMALIZE THE NUMBER 

2537 

05102 

3134 


DCA 


WORD l 


2536 

05103 

4771 


JMS 

I 

CANORM 


2539 

05104 

1023 


TAD 


DECPT 

/WAS THERE A DECIMAL POINT ? 

2540 

05105 

7640 


SZA 

CLA 



2541 

05106 

1024 


TAD 


NDIGIT 

/HOW MANY DIGITS TO THE RIGHT ? 

2542 

05107 

7041 


CIA 




2543 

05110 

1025 


TAD 


EXPON 

/SUBTRACT THAT NUMBER FROM EXP 

2544 

05111 

7500 


SMA 




2545 

05112 

5317 


JMP 


POSEXP 

/EXPONENT IS POSITIVE 

2546 

05113 

7041 


CIA 




2547 

05114 

3025 


DCA 


EXPON 

/ONLY NEED ABS VALUE 

2548 

05115 

1370 


TAD 


CFPDIV 

/DO DIVIDES 

2549 

05116 

5321 


JMP 


• ♦3 


2550 

05117 

3025 

POSEXP, 

DCA 


EXPON 


2551 

05120 

1367 


TAD 


(FPMUL 

/OO MULTIPLIES 

2552 

05121 

3267 


DCA 


FPRTNE 

/MULTIPLY /DIVIDE ROUTINE 

2553 

05122 

1366 


TAD 


(PET ABL 

-1 

2554 

05123 

3011 


DCA 


Xll 

/POWERS OF TEN TABLE 

2555 

05124 

1025 

EXPMUL, 

TAD 


EXPON 

/LOOK AT THE EXPONENT 

2556 

05125 

7450 


SNA 




2557 

05126 

5350 


JMP 


DOSIGN 

/IF 0 ITS THRU 

2558 

05127 

7110 


cu 

RAR 



2559 

05130 

3025 


DCA 


EXPON 

/PUT LOWEST BIT INTO LINK 

2560 

05131 

7420 


SNL 




2561 

05132 

5345 


JMP 


SKPEXP 

/THIS ONE DOESN'T COUNT 

2562 

05133 

1411 


TAD 

I 

XU 

/MOVE FACTOR INTO OPERAND 

2563 

05134 

3140 


DCA 


OP1 


2564 

05135 

1411 


TAD 

I 

XU 


2565 

05136 

3141 


DCA 


OP? 


2566 

05137 

1411 


TAD 

I 

Xll 


2567 

05140 

3142 


DCA 


0P3 


2568 

05141 

1411 


TAD 

I 

Xll 


2569 

05142 

3143 


DCA 


OPO 


2570 

05143 

4667 


JMS 

I 

FPRTNE 

/MULTIPLY OR DIVIDE BY THIS FACTOR 

2571 

05144 

5324 


JMP 


EXPMUL 

/CHECK NEXT BIT 

2572 

05145 

1011 

SKPEXP, 

TAD 


Xll 

/SKIP OVER THIS FACTOR 


/OS/8 

BASIC COMPILER 
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2573 

05146 

1365 


TAD C4 

2578 

05147 

5323 


JMP EXPMUL-1 

2575 

05150 

1212 

DOSIGN , 

TAD SIGN /CHECK THE SIGN 

2576 

05151 

7640 


SZA CLA 

2577 

05152 

4764 


JMS I (NEGFAC /NEGATE IF NEGATIVE 

2578 

05153 

2200 


ISZ NUMBER /BUMP RETURN 

2579 

05154 

5600 


JMP I NUMBER /RETURN 

2560 

05155 

0000 

nxtdgt , 

0 

2581 

05156 

7655 

WSTEP# 

-1231-1241-1051-120 

2582 

05157 

7654 



2583 

05160 

7673 



2564 

05161 

7660 



2585 

05162 

0000 

XADDi 

FADOt afaod 

2566 

05163 

6440 
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2587 / NUMERIC CONVERSION ROUTINE (PART TWO) 

2588 05164 5267 


2589 

05165 

0004 





2590 

05166 

5777 





2591 

05167 

5200 





2592 

05170 

5310 





2593 

05171 

5236 





2594 

05172 

0043 





2595 

05173 

5400 





2595 

05174 

7722 





2597 

05175 

5353 





2598 

05176 

5431 





2599 

05177 

5444 





26(90 


5200 


PAGE 



2601 

05200 

0000 

FPMUL, 

0 


/FLOATING MULTIPLY ROUTINE 

2602 

05201 

1134 


TAD 

WORD 1 

/COMPUTE NEW EXPONENT 

2603 

05202 

1140 


TAD 

DPI 


260a 

05203 

3140 


DCA 

DPI 


2605 

05204 

1135 


TAD 

W0RD2 

/SAVE AC MANTISSA 

2606 

05205 

3234 


DCA 

TW2 


2607 

05206 

1136 


TAD 

W0RD3 


2608 

05207 

3235 


OCA 

TW3 


2609 

05210 

1377 


TAD 

C-30 

/SET ITERATION COUNTER 

2610 

05211 

3371 


DCA 

ITRCNT 


2611 

05212 

3135 


DCA 

WQRD2 

/ZERO FAC MANTISSA 

2612 

05213 

313b 


DCA 

WQRD3 


2613 

05214 

3137 


DCA 

ACO 


26U 

05215 

4776 

MULLUP , 

JMS I 

C AR 1 

/SHIFT FAC RIGHT ONE 

2615 

05216 

1234 


TAD 

TW2 

/SHIFT MULTIPLIER RIGHT 

2616 

05217 

7110 


CIL RAR 



2617 

05220 

3234 


DCA 

TW2 


2618 

05221 

1235 


TAD 

TW3 


2619 

05222 

7010 


RAR 



2620 

05223 

3235 


DCA 

TW3 


2621 

05224 

7430 


SZL 



2622 

05225 

4353 


JMS 

OADD 

/ADD IF LINK IS ONE 

2623 

05226 

2371 


ISZ 

ITRCNT 

/BUMP COUNT 

262a 

05227 

5215 


JMP 

MULIUP 

/LOOP 

2625 

05230 

1140 


TAD 

DPI 

/PUT IN CORRECT EXPONENT 

2626 

05231 

3134 


DCA 

WORD 1 


2627 

05232 

4236 


JMS 

ANORM 

/NORMALIZE THE RESULT 

2628 

05233 

5600 


JMP I 

FPMUL 


2629 



02, 




2630 

05234 

0000 

TW2, 

0 



2631 



D3, 




2632 

05235 

0000 

TW3, 

0 



2633 



NFCNT, 




263a 

05236 

0000 

ANQRM, 

0 


/NORMALIZE FAC 

2635 

05237 

1135 


TAD 

W0RD2 

/IS MANTISSA 0 ? 

2636 

05240 

7450 


SNA 



2637 

05241 

1136 


TAD 

W0RD3 


2638 

05242 

7450 


SNA 



2639 

05243 

1137 


TAD 

ACO 


2690 

05244 

7650 


SNA CLA 



2691 

05245 

5265 


JMP 

ZEXP 

/YES, ZERO EXPONENT 
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2642 

05246 

7332 

NQRMLP , 

CLA 

CLL 

CML RTR 

/IS HIGH OROER MANTISSA s 6000 

2643 

05247 

1135 


TAD 


WORDS 


2644 

05250 

7440 


SZA 




2645 

05251 

5256 


JMP 


NO6000 

/NO, SKIP THIS CRAP 

2646 

05252 

1136 


TAD 


W0RD3 

/YES, IS THE REST 0 7 

2647 

05253 

7450 


SNA 




2646 

05254 

1137 


TAD 


ACO 


2649 

05255 

7640 


SZA 

CLA 


/SKIP IF 600000 ... 0000 

2650 

05256 

7710 

NO6000, 

SPA 

CLA 



2651 

05257 

5636 


JMP 

I 

ANORM 

/NORM IS DONE WHEN BITS DIFFER 

2652 

05260 

4775 


JMS 

I 

CALI 

/SHIFT LEFT ONE 

2653 

05261 

7240 


CIA 

CMA 


/DECREMENT EXPONENT 

2654 

05262 

1134 


TAD 


WORD 1 


2655 

05263 

3134 


DCA 


WOROl 


2656 

05264 

5246 


JMP 


NQRMLP 

/LOOP 

2657 

05265 

3134 

ZEXP, 

DCA 


WORD1 


2656 

05266 

5636 


JMP 

I 

ANQRM 


2659 

05267 

0000 

NEGFAC, 

0 



/NEGATE FAC 

2660 

05270 

1374 


TAD 


(ACO 

/GET POINTER TO OPERAND 

2661 

05271 

3307 


DCA 


NFPTR 


2662 

05272 

7146 


CLL 

CMA 

RTL 

/THREE WORD NEGATE 

2663 

05273 

3236 


DCA 


NFCNT 


2664 

05274 

7100 


CLL 




2665 

05275 

7004 

NFLOOP, 

RAL 




2666 

05276 

1707 


TAD 

I 

NFPTR 

/GET NEXT WQRO 

2667 

05277 

7161 


CLL 

CML 

CIA 


2666 

05300 

3707 


DCA 

I 

NFPTR 

/RESTORE AFTER COMPLEMENTING 

2669 

05301 

7260 


CML 

CLA 

CMA 

/link gets complemented ONCE HERE 

2670 

05302 

1307 


TAD 


NFPTR 

/AND ONCE AGAIN HERE 

2671 

05303 

3307 


DCA 


NFPTR 

/RESTORE DECREMENTED POINTER 

2672 

05304 

2236 


ISZ 


NFCNT 


2673 

05305 

5275 


JMP 


NFLOOP 


2674 

05306 

5667 


JMP 

I 

NEGFAC 


2675 

05307 

0000 

NFPTR, 

0 




2676 

05310 

0000 

FPDIV, 

0 




2677 

05311 

4776 


JMS 

I 

(AR1 

/UNNORMALIZE AC BY ONE 

2678 

05312 

1140 


TAD 


OPi 

/COMPUTE FINAL EXPONENT 

2679 

05313 

7041 


CIA 




2660 

05314 

1134 


TAD 


WORD 1 


2661 

05315 

3140 


DCA 


OPI 

/AND SAVE IT 

2682 

05316 

1377 


TAD 


(•30 

/SET ITERATION COUNTER 

2683 

05317 

3371 


DCA 


ITRCNT 


2664 

05320 

1135 


TAD 


WORDS 


2665 

05321 

7004 


RAL 



/INITIALIZE LINK 

2666 

05322 

7210 

FPDVLP, 

CLA 

RAR 


/COMPARE SIGNS 

2687 

05323 

1141 


TAD 


0P2 


2686 

05324 

7710 


SPA 

CLA 



2689 

05325 

5330 


JMP 


• *3 


2690 

05326 

1373 


TAD 


(OPO-ACO/NEGATE OPERAND 

2691 

05327 

4267 


JMS 


NEGFAC 


2692 

05330 

4353 


JMS 


OADD 

/ADD OPERAND AND FAC 

2693 

05331 

1235 


TAD 


D3 


2694 

05332 

7004 


RAL 




2695 

05333 

3235 


DCA 


D3 


2696 

05334 

1234 


TAD 


02 




/OS/8 BASIC COMPILER 


3697 

05335 

7004 


RAL 


2698 

05336 

3234 


OCA 


2699 

05337 

4775 


JMS 

I 

2700 

05340 

2371 


ISZ 


2701 

05341 

5322 


JMP 


2702 

05342 

1140 


TAO 


2703 

05343 

3134 


OCA 


2704 

05344 

1234 


TAO 


2705 

05345 

313b 


OCA 


2706 

05346 

1235 


TAO 


2707 

05347 

3136 


OCA 


2708 

05350 

3137 


OCA 


2709 

05351 

4236 


JMS 


2710 

05352 

5710 


JMP 

I 

2711 

05353 

0000 

OADD, 

0 


2712 

05354 

7100 


CLL 


2713 

05355 

1143 


TAO 


2714 

05356 

1137 


TAD 


2715 

05357 

3137 


OCA 


2716 

05360 

7004 


RAL 


2717 

05361 

1142 


TAD 


2718 

05362 

1136 


TAO 


2719 

05363 

3136 


OCA 


2720 

05364 

7004 


RAL 


2721 

05365 

1141 


TAO 


2722 

05366 

1135 


TAD 


2723 

05367 

3135 


OCA 


2724 

05370 

5753 


JMP 

I 

2725 

05371 

0000 

ITRCNT, 

0 
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02 

CALI /LEFT SHIFT FAC ONE 
ITRCNT /TEST ITERATION COUNT 
FPDVLP 

0P1 /PUT QUOTIENT INTO FAC 

WORD 1 
02 

WQRD2 

03 

W0RD3 

ACO 

ANORM /NORMALIZE 
FPOIV 

/ADO OPERAND TO FAC 

OPO 

ACO 

ACO 

0P3 

WQRD3 

H0RD3 

0P2 

W0R02 

W0RD2 

DADO 
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2726 



/ NUMERIC CONVERSION ROUTINE (FINALE) 

2727 

05373 

0004 






2728 

05374 

0137 






2729 

05375 

5431 






2730 

05376 

5414 






2731 

05377 

7750 






2732 


5400 


PAGE 



2733 

05400 

0000 

SMLNUMi 

0 



/INPUT A NUMBER <■ 4095 

2734 

05401 

3025 

EXPLUP, 

OCA 


EXPON 

/ZERO THE EXPONENT 

2735 

05402 

4531 


JM3 

i 

QDIGIT 

/GET THE NEXT DIGIT 

2736 

05403 

5600 


JMP 

i 

SMLNUM 

/NUMBER DONE 

2737 

05404 

3143 


OCA 


OPO 

/SAVE THE DIGIT 

2738 

05405 

1025 


TAD 


EXPON 

/MULT BV 10 

2739 

05406 

7104 


CLL 

RAL 



2740 

05407 

7104 


CLL 

RAL 



2741 

05410 

1025 


TAD 


EXPON 


2742 

05411 

7104 


CLL 

RAL 



2743 

05412 

1143 


TAD 


OPO 

/ADD IN DIGIT 

2744 

05413 

5201 


JMP 


EXPLUP 

/STORE BACK INTO EXPONENT 

2745 

05414 

0000 

AR1 1 

0 



/SHIFT FAC RIGHT 1 BIT 

2746 

05415 

1135 


TAD 


WORDS 


2747 

05416 

7110 


CLL 

RAR 



2748 

05417 

3135 


OCA 


WORDS 


2749 

05420 

1136 


TAD 


WORDS 


2750 

05421 

7010 


RAR 




2751 

05422 

3136 


DCA 


WORDS 


2752 

05423 

1137 


TAD 


ACO 


2753 

05424 

7010 


RAR 




2754 

05425 

3137 


DCA 


ACO 


2755 

05426 

2134 


ISZ 


WORD 1 


2756 

05427 

5614 


JMP 

I 

AR 1 


2757 

05430 

5614 


JMP 

I 

AR! 


2758 

05431 

0000 

All, 

0 



/SHIFT FAC LEFT ONE 

2759 

05432 

1137 


TAD 


ACO 


2760 

05433 

7104 


CLL 

RAL 



2761 

05434 

3137 


DCA 


ACO 


2762 

05435 

1136 


TAD 


WORDS 


2763 

05436 

7004 


RAL 




2764 

05437 

3136 


DCA 


WORDS 


2765 

05440 

1135 


TAD 


W0RD2 


2766 

05441 

7004 


RAL 




2767 

05442 

3135 


DCA 


W0RD2 


2768 

05443 

5631 


JMP 

I 

AL1 


2769 

05444 

0000 

CHKSGN, 

0 



/CHECK FOR SIGN 

2770 

05445 

1377 


TAD 


(•55 

/IS IT - 1 

2771 

05446 

7450 


SNA 




2772 

05447 

2644 


ISZ 

I 

CHKSGN 

/YES, SET SWITCH 

2773 

05450 

7440 


SZA 




2774 

05451 

1376 


TAD 


(55-53 

/IS IT ♦ 7 

2775 

05452 

7640 


SZA 

CLA 



2776 

05453 

4525 


JMS 

I 

Q0ACK1 

/RETURN CHAR OTHERWISE 

2777 

05454 

5644 


JMP 

I 

CHKSGN 
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2778 



/ STRING 

» LITERAI 

2779 

05455 

0000 

STRING, 

0 

2780 

05456 

4513 


JM5 I 

278| 

05457 

7736 

M42, 

-42 

2782 

05460 

5655 


JMP I 

2783 

05461 

2255 


ISZ 

2784 

05462 

3134 


DCA 

2785 

05463 

1375 


TAD 

2786 

05464 

3021 


DCA 

2787 

05465 

1374 


TAO 

2788 

05466 

3022 


DCA 

2789 

05467 

4320 

SLOOP, 

JMS 

2790 

05470 

5655 


JMP I 

2791 

05471 

7106 


CLL RTL 

2792 

05472 

7006 


RTL 

2793 

05473 

7006 


RTL 

2794 

05474 

3421 


DCA I 

2795 

05475 

4320 


JMS 

2796 

05476 

5314 


JMP 

2797 

05477 

1421 


TAD I 

2798 

05500 

3421 


DCA I 

2799 

05501 

2021 


ISZ 

2800 

05502 

2022 


ISZ 

2801 

05503 

5267 


JMP 

2802 

05504 

4502 


JMS I 

2803 

05505 

5311 


JMP 

2804 

05506 

1257 


TAD 

2805 

05507 

7650 


SNA CLA 

2806 

05510 

5655 


JMP I 

2807 

05511 

4473 

STRGER, 

JMS I 

2808 

05512 

2123 


2123 

2809 

05513 

5655 


JMP I 

2810 

05514 

1421 

PUT40, 

TAD I 

2811 

05515 

1373 


TAD 

2B12 

05516 

3421 


DCA I 

2813 

05517 

5655 


JMP I 

2814 

05520 

0000 

GCS, 

0 

2815 

05521 

4503 


JMS I 

2816 

05522 

5311 


JMP 

2817 

05523 

1257 


TAD 

2818 

05524 

7440 


SZA 

2819 

05525 

5335 


JMP 

2820 

05526 

4503 


JMS I 

2821 

05527 

5720 


JMP I 

2822 

05530 

1257 


TAD 

2823 

05531 

7650 


SNA CLA 

2824 

05532 

5335 


JMP 

2825 

05533 

4525 


JMS I 

2826 

05534 

5720 


JMP I 

2827 

05535 

1372 

NOTQOT, 

TAD 

2828 

05536 

0371 


AND 

2829 

05537 

2134 


ISZ 

2830 

05540 

2320 


ISZ 

2831 

05541 

5720 


JMP I 

2832 

05542 

0000 

MODSET, 

0 


SCANNER 

/LOOK for a string 
QCHECKC /LOOK FOR " 

STRING /NONE MEANS NO STRING 
STRING 

WORD 1 /ZERO CHAR COUNT 
(WORDS /SETUP POINTER 
TEMP 

(*44 /AND MAX SIZE 
TEMPS 

GCS /GET HIGH ORDER CHAR 
STRING /END OF STRING 


TEMP /PUT INTO UPPER HALF OF WORD 

GCS /GET LOWER CHAR 

PUT40 /FILL LAST WORD WITH BLANK 

TEMP /COMBINE THEM 

TEMP 

TEMP /BUMP POINTER 
TEMPS /TOO BIG YET ? 

SLOOP /NO, LOOP 

QGETC /MAX SIZE STRING, MUST FIND 

STRGER /BAD STRING LITERAL 

M42 

STRING /OK 

QERMSG /STRING ERROR 

STRING 

TEMP /GET LAST WORD 
(40 /PUT BLANK IN LOW CHAR 

TEMP /STORE NEW WORD 
STRING /RETURN 

/GET A CHAR FOR STRING 
QGETCWB /GET A CHAR (INCLUDE BLANKS) 
STRGER /BAD 
M4S /IS IT M 

NQTQOT /NO 
QGETCWB /IS IT 
GCS /NO, THAT WAS IT 

M42 /LOOK FOR SECOND » 

NOTQOT /”" BECOMES " 

QBACKl /PUT IT BACK 

GCS /LITERAL IS DONE 

(42 /RECREATE CHAR 

(77 /ELIMINATE EXTRA BITS 

WORD 1 /BUMP STRING COUNT 

GCS /FIX RETURN 

GCS 

/SET INTERPRETER MODE 


it 
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2833 

05543 

1055 


TAD 


MODE 

/SUM OP DESIRED AND CURRENT 

2834 

05544 

7700 


8MA 

CLA 



2835 

05545 

5742 


JMP 

1 

MODSET 

/THEY WERE THE SAME 

2836 

05546 

1055 


TAD 


MODE 

/OTHERWISE SWITCH MODES 

2837 

05547 

7640 


SZA 

CLA 



2838 

05550 

1370 


TAD 


(NMODE- 

SMOOE 

2839 

05551 

1367 


TAD 


(SMOOE 

/ENTER NMOOE OR MAYBE SMOOE 

2840 

05552 

4500 


JMS 

1 

QOUTWRD 


2841 

05553 

7130 


CLL 

CML 

RAR 


2842 

05554 

1055 


TAD 


MODE 

/CHANGE THE SWITCH 

2843 

05555 

3055 


DCA 


MODE 


2844 

05556 

5742 


JMP 

I 

MODSET 

/AND RETURN 

2845 

05557 

3400 

XID1V, 

FIOIV 7 A 

IOIV 


2846 

05560 

6740 






2847 

05561 

7660 

WPNT, 

-1207-1167-1241 

-5070 

2848 

05562 

7662 






2849 

05563 

7654 






2850 

05564 

7730 






2851 

05565 

0000 








/os/a 

BASIC 

COMPILER 
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2852 



/ VARIABLE 

OR FUNCTION 

REFERENCE SCANNER 

2853 

05567 

7561 






285a 

05570 

7760 






2855 

05571 

0077 






2856 

05572 

0042 






2857 

05573 

0040 






2858 

05574 

7734 






2859 

05575 

0135 






2860 

05576 

0002 






2861 

05577 

7723 






2862 


5600 


PAGE 



2863 

05600 

0000 

GETNAM, 

0 



/COOK FOR VARIABLE OR FUNCT REFNCE 

2864 

05601 

3026 


DCA 


TYPE 

/ZERO TYPE 

2865 

05602 

4530 


JMS 

I 

QLETTER 

/MUST START WITH LETTER 

2866 

05603 

5600 


JMP 

I 

GETNAM 

/NO NAME 

2867 

05604 

3134 


DCA 


NAME! 


2868 

05605 

4531 


JMS 

I 

QDIGIT 

/«LETTER>«OIGIT> 7 

2869 

05606 

5235 


JMP 


TRYFUN 

/NO, LOOK FOR FUN REF 

2870 

05607 

7001 


I AC 



/INCREMENT DIGIT 

2871 

05610 

3135 

LFDOLR, 

DCA 


NAMES 

/STORE AS NAME2 

2872 

05611 

4502 


JMS 

I 

QGETC 

/LOOK FOR S (STRING) 

2873 

05612 

5233 


JMP 


GOTN AM+2/NQT THERE 

2874 

05613 

1377 


TAD 


(*44 


2875 

05614 

7440 


SZA 




2876 

05615 

5224 


JMP 


NOSTRG 

/NO S MEANS NO STRING 

2877 

05616 

7130 


CLL 

CML 

RAR 

/SET STRING BIT 

2878 

05617 

1026 


TAD 


TYPE 


2879 

05620 

3026 


OCA 


TYPE 


2880 

05621 

4502 


JMS 

I 

QGETC 

/LOOK FOR ( (ARRAY) 

2881 

05622 

5233 


JMP 


GOTNAM+2/tyAME fini 

2882 

05623 

1377 


TAD 


044 

/PRIME THE CHAR 

2883 

05624 

1376 

NOSTRG, 

TAD 


(44*50 

/LOOK FOR ( (ARRAY) 

2884 

05625 

7650 


SNA 

CLA 



2885 

05626 

7132 


CLL 

CML 

RTR 

/YES, SET ARRAY BIT 

2886 

05627 

7450 


SNA 




2887 

05630 

4525 


JMS 

I 

QBACK1 

/NO, BACKUP 1 CHAR 

2888 

05631 

1026 

GOTNAM, 

TAD 


TYPE 

/MODIFY TYPE 

2889 

05632 

3026 


DCA 


TYPE 


2890 

05633 

2200 


ISZ 


GETNAM 

/BUMP RETURN 

2891 

05634 

5600 


JMP 

I 

GETNAM 


2892 

05635 

4501 

TRYFUN , 

JMS 

I 

QSAVECP 

/SAVE CHAR POSITION 

2893 

05636 

1134 


TAD 


NAME! 

/MOVE FIRST CHAR OVER 

2894 

05637 

7106 


CLL 

RTL 



2895 

05640 

7006 


RTL 




2896 

05641 

7006 


RTL 




2897 

05642 

3135 


DCA 


NAMES 


2898 

05643 

4530 


JMS 

I 

QLETTER 

/LOOK FOR SECOND LETTER 

2899 

05644 

5210 


JMP 


LFDOLR 

/NONE THERE, LOOK FOR S 

2900 

05645 

1135 


TAD 


NAMES 

/COMBINE WITH FIRST LETTER 

2901 

05646 

3135 


DCA 


NAMES 


2902 

05647 

4530 


JMS 

I 

QLETTER 

/LOOK FOR THIRD LETTER 

2903 

05650 

S302 


JMP 


NOFNAM 

/NOT A FUNCTION NAME 

2904 

05651 

3136 


DCA 


NAME3 

/PUT INTO NAME 

2905 

05652 

1135 


TAD 


NAMES 

/IS IT A USER FUNCT ? 

2906 

05653 

1375 


TAD 


0616 

/FN 
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2907 

05654 

7650 


SNA 

CLA 

2906 

05655 

5304 


JMP 


2909 

05656 

1374 


TAD 


2910 

05657 

3010 


DCA 


2911 

05660 

1410 

FUNSRC, 

TAD 

I 

2912 

05661 

7450 


SNA 


2913 

05662 

5302 


JMP 


2914 

05663 

1135 


TAD 


2915 

05664 

7640 


SZA 

CLA 

2916 

05665 

5277 


JMP 


2917 

05666 

1410 


TAD 

I 

2916 

05667 

1136 


TAD 

CLA 

2919 

05670 

7640 


SZA 

2920 

05671 

5300 


JMP 


2921 

05672 

1410 


TAD 

I 

2922 

05673 

3027 

FUNOK, 

DCA 


2923 

05674 

1373 


TAD 


2924 

05675 

3026 


DCA 


2925 

05676 

5210 


JMP 


2926 

05677 

2010 

NOMATC, 

ssz 


2927 

05700 

2010 


ISZ 


2926 

05701 

5260 


JMP 


2929 

05702 

4504 

NOFNAM, 

JMS 

I 

2930 

05703 

5210 


JMP 


2931 

05704 

1136 

USRFUN, 

TAO 


2932 

05705 

5273 


JMP 



USRFUN /YES 

(PUNS* 1 /NO, CHECK VALIDITY OF NAME 
X10 

X10 /SET NEXT PUN NAME 

NOPNAM /END OP LIST, INVALID NAME 
NAME2 /COMPARE FIRST 2 CHARS 

NOMATC /THEY DON'T MATCH 
X10 /COMPARE 3RD CHAR 
NAME3 

NOMATC*l/OON'T MATCH 
X10 /GET FUNCTION CODE 
SYMBOL /SAVE IT AS SYMBOL VALU 
(1000 /SET FUNCTION BIT 
TYPE 

LFDQLR /LOOK FOR QS! Q (1 
X10 /SKIP THIRD CHAR 

X10 /SKIP FUNCTION NUMBER 

FUNSRC /KEEP LOOKING 
QRE8TCP /RESTORE CHAR POS 
LFDQLR /LOOK FOR OS] Q(1 
NAME3 /GENERATE FUN NUMBER 
FUNOK 
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2933 



/ ERROR 

MESSAGE 

REPORTER 

2934 

0570b 

0000 

ERMSG, 

0 


/PRINT ERROR MESSAGE 

2935 

05707 

7200 


CLA 


293b 

05710 

6201 


COP 



2937 

05711 

1706 


TAD I 

ERMSG 

/GET CODE 

2938 

05712 

7112 


CLL RTR 


/PRINT FIRST CHAR 

2939 

05713 

7012 


RTR 


2940 

05714 

7012 


RTR 



2941 

05715 

4772' 


JMS 

TTY 


294a 

0571b 

1706 


TAD I 

ERMSG 

/PRINT SECOND CHAR 

2943 

05717 

4772' 


JMS 

TTY 


2944 

05720 

2306 


1SZ 

ERMSG 

/FIX RETURN AODR 

2945 

05721 

1350 


TAD 

SPACE 

/PRINT SPACE 

294b 

05722 

4772' 


JMS 

TTY 

2947 

05723 

3772' 


OCA 

TTY 

/USE TTY AS A SWITCH 

2948 

05724 

1053 


TAO 

LINEN 

/PRINT HIGH ORDER 

2949 

05725 

4335 


JMS 

PSN 

2950 

0572b 

1054 


TAO 

LINEL 

/THEN LOW OROER 

2951 

05727 

4335 


JMS 

PSN 

/(LINE NUMBER NATCH J) 

2952 

05730 

1371 


TAO 

(215 

/PRINT CARRIAGE RETURN 

2953 

05731 

4770' 


JMS 

TTX 

2954 

05732 

1367 


TAD 

(212 

/PRINT LINE FEED 

2955 

05733 

4770' 


JMS 

TTX 


295b 

05734 

5706 


JMP I 

ERMSG 

/RETURN 

2957 

05735 

0000 

PSN, 

0 


/PRINT 3 DIGITS DECIMAL 

2958 

0573b 

3135 


OCA 

WORDS 

2959 

05737 

7146 


CLL CM A 

RTL 

/- 3 

29b0 

05740 

3021 


OCA 

TEMP 


29bl 

05741 

1135 

PRNTSN, 

TAD 

NQRD2 

/GET NEXT DIGIT 

29b2 

05742 

7106 


CLL RTL 


/INTO THE LOW ORDER 

29b3 

05743 

7006 


RTL 


/THREE BITS AND THE LINK 

29b4 

05744 

3135 


DCA 

W0R02 

/SAVE SHIFTED NUMBER 

29b5 

05745 

1135 


TAD 

W0RD2 

/NOW DO LAST SHIFT 

29bb 

05746 

7004 


RAL 


29b7 

05747 

0366 


AND 

(17 

/ONLY FOUR BITS 

29b8 

05750 

7440 

SPACE, 

SZA 


29b9 

05751 

5355 


JMP 

NOZERO 

/NOT A ZERO 

2970 

05752 

1772' 


TAD 

TTY 

/ANY OIGITS YET 7 

2971 

05753 

7650 


SNA CLA 


2972 

05754 

5357 


JMP 

LE ADO 

/NO, ITS A LEADING ZERO 

2973 

05755 

1365 

NOZERO, 

TAO 

(60 

/MAKE IT ASCII 

2974 

05756 

4772' 


JMS 

TTY 

/PRINT DIGIT 

2975 

05757 

2021 

LEAD 0, 

ISZ 

TEMP 

/BUMP COUNT 

297b 

05760 

5341 


JMP 

PRNTSN 

/MORE DIGIT (SI 

2977 

05761 

5735 


JMP I 

PSN 

2978 

05762 

1000 

XMUL, 

FMPYIAFMPY 


2979 

05763 

6540 
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2960 

2961 

05765 

0060 

/ EXPONENT TABLE 

2982 

05766 

0017 


2963 

05767 

0212 


2984 

05770 

3740 


2965 

05771 

0215 


2986 

05772 

3730 


2967 

05773 

1000 


2966 

05774 

6070 


2969 

05775 

7162 


2990 

05776 

7774 


2991 

05777 

7734 


2992 


6000 

PAGE 

2993 

06000 

0004 

PETABL* 0004 12400 10000 10000 

2994 

06001 

2400 


2995 

06002 

0000 


2996 

06003 

0000 


2997 

06004 

0007 

0007131001000010000 

2996 

06005 

3100 


2999 

06006 

0000 


3000 

06007 

0000 


3001 

06010 

0016 

0016123421000010000 

3002 

06011 

2342 


3003 

06012 

0000 


3004 

06013 

0000 


3005 

06014 

0033 

0033127651702010000 

3006 

06015 

2765 


3007 

06016 

7020 


3008 

06017 

0000 


3009 

06020 

0066 

0066121601674416770 

3010 

06021 

2160 


3011 

06022 

6744 


3012 

06023 

6770 


3013 

06024 

0153 

0153123561132616501 

3014 

06025 

2356 


3015 

06026 

1326 


3016 

06027 

6501 


3017 

06030 

0325 

0325130231601715120 

3018 

06031 

3023 


3019 

06032 

6017 


3020 

06033 

5120 


3021 

06034 

0652 

0652122351644317114 

3022 

06035 

2235 


3023 

06036 

6443 


3024 

06037 

7114 

1523125231756517735 

3025 

06040 

1523 

3026 

06041 

2523 


3027 

06042 

7565 


3026 

06043 

7735 


3029 

06044 

3245 

3245134301632012565 

3030 

06045 

3430 


3031 

06046 

6320 


3032 

06047 

256S 
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/ OPERATOR TABLE 
OPRBRSi PLUS I «53 


3033 

3034 06050 

3035 06051 

3036 06052 

3037 06053 

3038 06054 

3039 06055 

3040 06056 

3041 06057 

3042 06060 

3043 06061 

3044 06062 

3045 06063 

3046 06064 

3047 06065 

3048 06066 

3049 06067 

3050 06070 


2557 

7725 
2755 
7723 
0356 

7726 
2761 
7721 
0362 
7642 
1557 
7732 
0000 
4000 SASIGN 
4301 

0000 ASSIGN 
4301 


MINUS7-55 
STAR7-52 
SLASH J «57 
UPAROW7-136 
AMPSND7-46 
0 

40007 XSTOR 
07X5TOR 
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3051 

3052 

3053 

3054 

3055 
3050 

3057 

3058 

3059 
3080 

3001 

3002 

3003 

3004 

3005 
3000 

3007 

3008 

3009 

3070 

3071 

3072 

3073 

3074 

3075 
3070 

3077 

3078 

3079 

3080 

3081 

3082 

3083 

3084 

3085 
3080 

3087 

3088 

3089 

3090 

3091 

3092 
3095 

3094 

3095 
3090 

3097 

3098 

3099 

3100 

3101 

3102 

3103 

3104 

3105 


/ FUNCTION NAME TABLE (INTERNAL FUNCTIONS) 


00071 

7070 FUNS, 

■0102)«23)FUNC3 

00072 

7755 


00073 

740B 


00074 

7055 

-0123)-03)FUNC2 

00075 

7775 


00070 

7417 


00077 

7054 

-0124)-10)FUNC1 

00100 

7702 


00101 

7410 


00102 

7470 

■0310) *22) FUNC2+20 

00103 

7754 


00104 

7437 


00105 

7401 

■0317) *23} FUNC 1+20 

00100 

7755 


00107 

7430 


00110 

7377 

■0401 ) «24) FUNC2+40 

00111 

7754 


00112 

7457 


00113 

7250 

■0530 ) -20 )FUNC 1+40 

00114 

7700 


00115 

7450 


00110 

0002 

-U10)-24)FUNC1 + 100 

00117 

7754 


00120 

7510 


00121 

0373 

■1405) « 101 FUNC2+00 

00122 

7702 


00123 

7477 


00124 

0301 

•1417) *07 )FUNC1+120 

00125 

7771 


00126 

7530 


00127 

5701 

■2017) ■23)FUNC2+100 

00130 

7755 


00131 

7517 


00132 

5502 

=>2218)-04)FUNCl+200 

00133 

7774 


00134 

7010 


00135 

5473 

-2305 )»07)FUNC2* 120 

00130 

7771 


00137 

7537 


00140 

5471 

-2307)-10)FUNCl+140 

00141 

7702 


00142 

7550 


00143 

5407 

*2311 )»10)FUNC 1+100 

00144 

7702 


00145 

7570 


00144 

5457 

■2321 ) -22 )FUNC 1+220 

00147 

7750 


00150 

7030 


00151 

5454 

-2324)*22)FUNC2+140 

00152 

7750 


00153 

7557 


00154 

5177 

■2001 )«14)FUNC2+100 

00155 

7704 


00150 

7577 
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3106 

06157 

5356 

•2422;«03?FUNC2*220 

3107 

06160 

7775 



3108 

06161 

7637 



3109 

06ua 

(9000 ENDFNS, 

0J01FUNC4 

/SPACE FOR NEW FUNCTIONS 

3110 

06163 

0000 



3111 

06164 

7415 



3112 

06165 

0000 

0I01FUNC4+20 


3113 

06166 

0000 



3114 

06167 

7435 



3115 

06170 

0000 

0>0>FUNC4*40 


3116 

06171 

0000 



3117 

0617a 

7455 



3118 

06173 

0000 

0»0»FUNC4*60 


3119 

06174 

0000 



3120 

06175 

7475 



3121 

06176 

0000 

0 9 0) FUNC4* 1 00 


3122 

06177 

0000 



3123 

06200 

7515 



3124 

06201 

0000 

090>FUNC4*120 


3125 

06202 

0000 



3126 

06203 

7535 



3127 

06204 

0000 

0I0;FUNC4+140 


3128 

06205 

0000 



3129 

06206 

7555 



3130 

06207 

0000 

0 9 0 9 FlINC 4* 1 60 


3131 

06210 

0000 



3132 

06211 

7575 



3133 

06212 

0000 

0J09PUNC4*200 


3134 

06213 

0000 



3135 

06214 

7615 



3136 

06215 

0000 

0909FUNC4+220 


3137 

06216 

0000 



3138 

06217 

7635 



3139 

06220 

0000 

0909PUNC4+240 


3140 

06221 

0000 



3141 

06222 

7655 



3142 

06223 

0000 

0909FUNC4+260 


3143 

06224 

0000 



3144 

06225 

7675 



3145 

06226 

0000 

0»0|FUNC4*300 


3146 

06227 

0000 



3147 

06230 

7715 



3148 

06231 

0000 

090 JFUNC4+380 


3149 

06232 

0000 



3150 

06233 

7735 



3151 

06234 

0000 

0909FUNC4+340 


3152 

06235 

0000 



3153 

06236 

7755 



3154 

06237 

0000 

0 9 0 9 F ONC4+360 

/SIXTEEN of them 

3155 

06240 

0000 



3156 

06241 

7775 



3157 

0624 2 

0000 

0 
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3158 



/ KEYWORD LIST 

3159 

06243 

7664 

KEYWRD, 

-1141-1051-1241LET 

3160 

06244 

7673 



3161 

06245 

7654 



3162 

06246 

0316 



3163 

06247 

7667 


-1 111 -106; -105 1-1 161-1041 IPEND 

3164 

06250 

7672 



3165 

06251 

7673 



3166 

06252 

7662 



3167 

06253 

7674 



3166 

06254 

2103 



3169 

06255 

7667 


-111 1-1061 IF 

3170 

06256 

7672 



3171 

06257 

2000 



3172 

06260 

7672 


• 106 1-1171-122 IFOR 

3173 

06261 

7661 



3174 

06262 

7656 



3175 

06263 

1600 



3176 

06264 

7662 


• 1161 -1051 -1301-1 241 NEXT* 

3177 

06265 

7673 



3178 

06266 

7650 



3179 

06267 

7654 



3160 

06270 

0704 



3161 

06271 

7671 

WGOTO, 

-1071-117 

3162 

06272 

7661 



3183 

06273 

7654 

WTO, 

-1241-1171G0T0 

3184 

06274 

7661 



3185 

06275 

2147 



3166 

06276 

7671 


-1071-1 171 -1231-1251-102 1GOSUB 

3167 

06277 

7661 



3166 

06300 

7655 



3169 

06301 

7653 



3190 

06302 

7676 



3191 

06303 

2154 



3192 

06304 

7667 


-1111-1161-1201-1251-1241 INPUT 

3193 

06305 

7662 



3194 

06306 

7660 



3195 

06307 

7653 



3196 

06310 

7654 



3197 

06311 

0400 



3198 

06312 

7660 


-1201-1221-1 11 1-1 161 -1241 PRINT 

3199 

06313 

7656 



3200 

06314 

7667 



3201 

06315 

7662 



3202 

06316 

7654 



3203 

06317 

0443 



3204 

06320 

7674 


-1041-1111-U51OIM 

3205 

06321 

7667 



3206 

06322 

7663 



3207 

06323 

0600 



3206 

06324 

7674 


-1041-101 1-1241-101 1DAT A 

3209 

06325 

7677 



3210 

06326 

7654 



3211 

06327 

7677 



3212 

06330 

1431 
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3213 

06331 

7674 

3214 

06332 

7673 

3215 

06333 

7672 

3216 

06334 

1200 

3217 

06335 

7672 

3216 

06336 

7667 

3219 

06337 

7664 

3220 

06340 

7673 

3221 

06341 

2522 

3222 

06342 

7656 

3223 

06343 

7673 

3224 

06344 

7677 

3225 

06345 

7674 

3226 

06346 

1526 

3227 

06347 

7656 

3228 

06350 

7673 

3229 

06351 

7663 

3230 

06352 

0205 

3231 

06353 

7656 

3232 

06354 

7673 

3233 

06355 

7655 

3234 

06356 

7654 

3235 

06357 

7661 

3236 

06360 

7656 

3237 

06361 

7673 

3238 

06362 

0542 

3239 

06363 

7656 

3240 

06364 

7673 

3241 

06365 

7654 

3242 

06366 

7653 

3243 

06367 

7656 

3244 

06370 

7662 

3245 

06371 

3561 

3246 

06372 

7655 

3247 

06373 

7654 

3248 

06374 

7661 

3249 

06375 

7660 

3250 

06376 

3565 

3251 

06377 

7656 

3252 

06400 

7677 

3253 

06401 

7662 

3254 

06402 

7674 

3255 

06403 

7661 

3256 

06404 

7663 

3257 

06405 

7667 

3258 

06406 

7646 

3259 

06407 

7673 

3260 

06410 

3564 

3261 

06411 

7675 

3262 

06412 

7664 

3263 

06413 

7661 

3264 

06414 

7655 

3265 

06415 

7673 

3266 

0641b 

3342 

3267 

06417 

7675 


-10«f-105f-l06»DEF 

-106 1 -I1W -114 » -105| FILE 

-122 7-105 > -1017-1041 RE AOX 

-1227-1057 -1157REMARK 

-1227-1057-1237-1247-1 177-1237 -1057RE5TOR 

-1227-1057-1247-1257-1227-1167RETURN 

-1237-1247-11 7 7-1207 STOPX 

-1227-1017-1167-1047-1177-1157-1117-1327- 


-1037-1 147 -1 1 7 7-1237 -1057 CLOSE 


-103 7-1107-1017-1117-1167 CHAIN 


1 05 7 RANOQM 
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3268 

06420 

7670 

3269 

06421 

7677 

1270 

06422 

7667 

3271 

06423 

7662 

3272 

06424 

3750 

3273 

06425 

7653 

3274 

06426 

7674 

3275 

06427 

7673 

3276 

06430 

7672 

3277 

06431 

1000 

3278 

06432 

7653 

3279 

06433 

7655 

3280 

06434 

7673 

3281 

06435 

1745 

3282 

06436 

7673 

3283 

06437 

7662 

3284 

06440 

7674 

3285 

06441 

0343 

3286 

06442 

0000 


•125| -1041 -1051 -106| UDEF 


•125 1-1231-1 051 USEX 


•l 05 1-1161-1 04 1END 


0 
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3287 



/ OS-6 

OUTPUT ROUTINE 


3288 

06443 

0000 

OWTEMP , 

0 



3289 

06444 

0000 

QUPTR, 

QUBUF 



3290 

0644S 

7377 

OCQUNT, 

-401 



329| 

06446 

0000 

OUTWRD, 

0 


/OUTPUT ROUTINE 

3292 

06447 

3243 


OCA 

OWTEMP 

/SAVE WORD 

3293 

06450 

2045 


ISZ 

IOCTRL 

/INCREMENT PSEUDO CODE 

3294 

06451 

7410 


SKP 


/LOCATION COUNTER 

3295 

06452 

2044 


ISZ 

LOCTRH 

/BOTH HALVES 

3296 

06453 

7000 


NOP 


/IT 'LL NEVER HAPPEN 

3297 

06454 

2245 


ISZ 

OCQUNT 

/TEST FOR BUFFER FULL 

3298 

06455 

5263 


JMP 

NOWRIT 

/STILL SOME ROOM 

3299 

06456 

4271 


JMS 

OUDUMP 

/DUMP THE BUFFER 

3300 

06457 

1274 


TAD 

OUBLOK* 

t/RESET BUFFER PARAMETERS 

3301 

06460 

3244 


OCA 

QUPTN 


3302 

06461 

1377 


TAD 

(*400 


3303 

06462 

3245 


DC A 

OCQUNT 


3304 

06463 

1243 

NOWRIT, 

TAD 

OWTEMP 

/PUT WORD 

3305 

06464 

6211 


CDF 

10 


3306 

06465 

3644 


DCA I 

QUPTR 

/INTO BUFFER 

3307 

06466 

6201 


CDF 



3308 

06467 

2244 


ISZ 

GUPTR 

/MOVE POINTER 

3309 

06470 

5646 


JMP I 

OUTWRD 


3310 

06471 

0000 

OUDUMP, 

0 


/DUMP OUT BUFFER 

3311 

06472 

4776 


JMS I 

(7607 

/CALL OUTPUT HANDLER 

3312 

06473 

4210 


4210 



3313 

06474 

0000 


OU8UF 



3314 

06475 

0000 

oublok, 

0 



3315 

06476 

5302 


JMP 

OUERR 


3316 

06477 

2275 


ISZ 

OUBLOK 

/INCREMENT BLOCK NUMBER 

3317 

06500 

2306 


ISZ 

OUSIZE 

/CHECK FOR HOLE FULL 

3318 

06501 

5671 


JMP I 

OUDUMP 


3319 

06502 

4473 

OUERR, 

JMS I 

QERMSG 

/OUTPUT FILE ERROR 

3320 

06503 

1706 


1706 



3321 

06504 

5406 


JMP I 

X ABORT 

/ABORT COMPILATION 

3322 

06505 

0000 

ODEVH, 

0 



3323 

06506 

0000 

D US I Z E f 

0 


- — 

3324 

06507 

4313 

amprtn, 

JMS "" " 

Tools T 

/LOAD OP1S 

3325 

06510 

1561 


AMPSND+2 

/CONC 0P2S 

3328 

06511 

4313 

SCRTN, 

JMS 

LODI ST 

/load OP1S 

3327 

06512 

6570 


SCQMPRM 

/COMP 0P2$ 

3328 

06513 

0000 

LOOl ST , 

0 


/handle one way instructions 

3329 

06514 

4524 


JMS I 

QSAVAC 

/STORE 2ND ARG IF IN SAC 

3330 

06515 

7777 


-1 



3331 

06516 

7240 


CLA CM A 


/GET TYPE OF 2ND ARG 

3332 

06517 

101« 


TAD 

OSTACK 


3333 

06520 

3021 


DCA 

TEMP 


3334 

06521 

7132 


CU CML 

RTR 

/IS IT SUBSCRIPTED 7 

3335 

06522 

0421 


AND I 

TEMP 


3336 

06523 

7650 


SNA CLA 



3337 

06524 

5331 


JMP 

SKIP2 

/NO, ENTRY IS ONLY 2 WORDS 

3338 

06525 

1421 


TAD I 

TEMP 

/GET NUMBER OF DIMS 

3339 

06526 

0367 


AND 

SCOMPR 

/LITERAL 3 

3340 

06527 

7104 


CLL RAL 


/DOUBLE IT 

3341 

06530 

7041 


CIA 




/OS/8 

BASIC COMPILER 


PAie-ve 

10/30/72 PAGE 44*1 

3342 

06531 

1375 

SKIP2, 

TAO 


(-2 

/FINO SIZE OF 2ND ARG 

3343 

06532 

3354 


OCA 


0P2SIZ 

/A NO SAVE IT 

3344 

06533 

1014 


TAO 


QSTACK 

/SACK UP STACK 

3345 

06534 

1354 


TAO 


0P2SIZ 


3346 

06535 

3014 


OCA 


OSTACK 


3347 

06536 

1014 


TAD 


QSTACK 

/AND SAVE THIS ADOR 

3348 

06537 

3012 


OCA 


X12 


3349 

06540 

4520 


JM8 

1 

QUOAD 

/LOAD ARG 1 

3350 

06541 

7130 


CLL 

CML 

RAR 

/GET TYPE BIT 

3351 

06542 

0056 


AND 


TYPE! 

/PUT BACK ARG1 

3352 

06543 

1133 


TAD 


Q400 


3353 

06544 

3414 


OCA 

I 

OSTACK 


3354 

06545 

3414 


OCA 

I 

OSTACK 


3355 

06546 

1412 


TAD 

I 

X12 

/PUT BACK ARG 2 

3356 

06547 

3414 


OCA 

I 

OSTACK 


3357 

06550 

2354 


ISZ 


0P2SIZ 


3358 

06551 

5346 


JMP 


.•3 


3359 

06552 

1713 


TAD 

I 

LODIST 

/GET OPERATOR FINISH 

3360 

06553 

5774* 


JMP 


QUTOPR+l/GO FINISH CODE 

3361 

06554 

0000 

0P2SIZ, 

0 



/SACREO COUNT WORD 

3362 

06555 

0000 

CHECKC, 

0 



/CHAR CHECKER 

3363 

06556 

4502 


JMS 

I 

QGETC 

/GET A CHARACTER 

3364 

06557 

5365 


JMP 



/FAILED 

3365 

06560 

1755 


TAD 

I 

CHECKC 

/COMPARE 

3366 

06561 

7450 


SNA 




3367 

06562 

2355 


ISZ 


CHECKC 

/MATCHES, SKIP TWO 

3366 

06563 

7640 


SZA 

CLA 



3369 

06564 

4525 


JMS 

I 

QBACKi 

/NO MATCH, REPLACE 

3370 

06565 

2355 


ISZ 


CHECKC 

/ALWAYS SKIP AT LEAST 1 

3371 

06566 

5755 


JMP 

I 

CHECKC 


3372 

06567 

0003 

SCOMPR, 

3I5CRTN. 

>3>4000MSCOMP| XSCOMP 

3373 

06570 

6506 






3374 

06571 

4000 






3375 

06572 

6734 






3376 

06573 

6734 







/OS/a BASIC compile* 
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3377 



/ OS-8 

FILE INPUT ROUTINE 

3378 

06574 

3401 





3379 

06575 

7778 





3380 

06576 

7607 





3381 

06577 

7400 





3382 


6600 


PAGE 



3383 

06600 

0000 

ICHAR, 

0 


/READ CHAR FROM INPUT FILE 

3384 

06601 

2255 


ISZ 

INJMP 

/BUM P THREE WAY UNPACK SWITCH 

3385 

06602 

2330 


ISZ 

INCHCT 


3366 

06603 

5255 

INJMPP, 

JMP 

INJMP 


3387 

06604 

1327 


TAD 

INEOF 

/last read yeild end of file ? 

3388 

06605 

7640 


SZA CLA 



3389 

06606 

5233 


JMP 

ENDFIL 

/YES 

3390 

06607 

1332 

1NGBUF 9 

TAD 

INCTR 

/BUMP RECORD COUNTER 

3391 

06610 

7101 


CLL I AC 



3392 

06611 

7420 


5NL 



3393 

06612 

3332 


DCA 

INCTR 

/RESTORE IF IT HASN'T OVERFLOWED 

3394 

06613 

7430 


SZL 



3395 

06614 

2327 


ISZ 

INEOF 

/SET END OF FILE SWITCH 

3396 

06615 

4731 


JMS I 

INHNDL 

/DO THE READ 

3397 

06616 

0200 


0200 


/ONE 8L0CK TO FIELD 0 

3398 

06617 

7200 

IN8UFP, 

INBUF 



3399 

06620 

0000 

INREC, 

0 



3400 

06621 

5232 


JMP 

INERR 

/handler error 

3401 

06622 

2220 

INBREC, 

ISZ 

INREC 

/BUMP RECORD NUMBER 

3402 

06623 

1377 


TAD 

(-60 1 

/SET CHAR COUNT 

3403 

06624 

3330 


OCA 

INCHCT 


3404 

06625 

1203 


TAO 

INJMPP 

/RESET THREE WAY JUMP SWITCH 

3405 

06626 

3255 


DCA 

INJMP 


3406 

06627 

1217 


TAD 

INBUFP 

/RESET BUFFER POINTER 

3407 

06630 

3333 


DCA 

INPTR 


3408 

06631 

5201 


JMP 

I CHAR* 1 

/GO AGAIN 

3409 

06632 

7200 

INERR, 

CLA 



3410 

06633 

4473 

ENDFIL# 

JMS I 

QERMSG 

/INPUT FILE ERROR 

3411 

06634 

1505 


1505 



3412 

06635 

1376 

ABORT, 

TAD 

(4207 

/RESTORE *C LOCZTIONS 

3413 

06636 

3775* 


DCA 

7600 


3414 

06637 

1374 


TAD 

(6213 


3415 

06640 

3773' 


DCA 

7605 


3416 

06641 

6211 


CDF 

10 


3417 

06642 

1772' 


TAD 

INFO 

/GET START OF BASIC. SV 

3418 

06643 

6201 


CDF 



3419 

06644 

7450 


SNA 



3420 

06645 

5773* 


JMP 

7605 

/T ' WERE RUNNEO 

3421 

06646 

3252 


DCA 

edtbl* 

/SAVE MAGICAL BLOCK NUMBER 

3422 

06647 

4771' 


JMS 

7607 

/USE SYS HANDLER 

3423 

06650 

1600 


EDTSIZ 


/TO READ IN THIS MUCH 

3424 

06651 

0000 


0 


/INTO ZERO 

3425 

06652 

0000 

EDTBLK, 

0 


/FROM HERE 

3426 

06653 

7402 


hlt 


/HALT IF BAD READ 

3427 

06654 

5770' 


JMP 

EDTBGN 

/GO RESTART EDITOR 

3428 

06655 

7402 

INJMP, 

HLT 


/3 WAY CHAR UNPACK JUMP 

3429 

06656 

5277 


JMP 

I Char i 


3430 

06657 

5273 


JMP 

ICHAR2 


3431 

06660 

1203 

ICHAR3, 

TAD 

INJMPP 

/RESET JUMP SWITCH 


/09/S 

BASIC COMPILER 


PAL8-V6 

10/30/72 PASE 45-1 

3432 

96661 

3255 


OCA 


INJMP 


3433 

96662 

1733 


TAD 

I 

INPTR 


3434 

96663 

0367 


AND 


(7400 

/COMBINE THE HIGH ORDER BITS 

3435 

96664 

7112 


CLL 

RTR 


/OF THE TWO WORDS 

3436 

96665 

7012 


RTR 




3437 

96666 

1326 


TAO 


INTMP 

/TO FORM THE THIRD CHAR 

3439 

96667 

7012 


RTR 




3439 

96679 

7012 


RTR 




3449 

96671 

2333 


ISZ 


INPTR 

/BUMP WORD POINTER 

3441 

96672 

5390 


JMP 


ICHARl+l/DO SOME COMMON STUFF 

3442 

96673 

1733 

ICHAR2, 

TAO 

I 

INPTR 

/SAVE THE HIGH ORDER BITS 

3443 

96674 

0367 


AND 


(7400 


3444 

96675 

3326 


OCA 


INTMP 

/FOR THE THIRD CHAR 

3445 

96676 

2333 


ISZ 


INPTR 

/GO TO THE SECOND WORO 

3446 

96677 

1733 

ICHAR1, 

TAO 

I 

INPTR 

/GET THE LOW 7 BITS 

3447 

96799 

0366 


AND 


(177 

/AND I MEAN ONLY 7 11 

3446 

96791 

1365 


TAO 


(-134 

/CHECK FOR \ (STMT SEPARATOR) 

3449 

96792 

7450 


SNA 




3459 

96793 

5609 


JMP 

I 

ICHAR 

/TREAT LIKE CR 

3451 

96794 

1364 


TAO 


(134-32 

/IS IT *Z (END OF FILE) 

3452 

96795 

7450 


SNA 




3453 

96796 

5233 


JMP 


ENDFIL 

/YES, ITS END OF FILE 

3454 

96797 

1363 


TAO 


(32-12 


3455 

96719 

7450 


SNA 




3456 

96711 

5201 


JMP 


ICHAR+1 

/IGNORE LINE FEEDS 

3457 

96712 

7001 


I AC 



/TABS •» BLANKS 

3456 

96713 

7450 


SNA 




3459 

96714 

1362 


TAO 


(40-11 


3460 

96715 

1361 


TAD 


(11-15 


3461 

96716 

7450 


SNA 




3462 

96717 

5600 


JMP 

I 

ICHAR 

/RETURN ON CARRIAGE RETURN 

3463 

06729 

7001 


IAC 




3464 

06721 

7450 


SNA 




3465 

06722 

5201 


JMP 


1CHAR+1 

/IGNORE FORM FEEDS 

3466 

06723 

1360 


TAO 


(14 

/FIX CHAR 

3467 

96724 

2200 


ISZ 


ICHAR 


3466 

06725 

5600 


JMP 

I 

ICHAR 

/RETURN TO THE CALLING WORLD 

3469 

06726 

0900 

INTMP, 

0 




3479 

06727 

0090 

INEOPi 

0 




3471 

06730 

7777 

INCHCT , 

*1 




3472 

06731 

0000 

INHNDL, 

0 



/ENTRY AOOR GOES HERE 

3473 

06732 

0000 

INCTR, 

0 




3474 

06733 

0000 

INPTR, 

0 




3475 

06734 

0400 

X8C0MP, 

SC0MPI8AC0MP 


3476 

06735 

6440 






3477 

06736 

0000 

CHKHO, 

0 



/WORD CHECKER 

3476 

06737 

1736 


TAD 

I 

CHKWD 

/ GET POINTER 

3479 

06740 

2336 


ISZ 


CHKWD 


3469 

06741 

3355 


DCA 


CWTEMP 

/SAVE POINTER 

3461 

06742 

1755 

NOLOOP* 

TAD 

I 

CWTEMP 

/GET NEXT CHAR 

3462 

06743 

7500 


SMA 




3463 

06744 

2336 


ISZ 


CHKWD 

/IF NON NEG, FIX RETURN 

3464 

06745 

7710 


SPA 

CLA 



3465 

06746 

4502 


JMS 

I 

QGETC 

/GET CHAR 

3486 

06747 

5736 


JMP 

I 

CHKWO 

/RETURN 
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3487 

06750 

1755 


TAD I CWTEMP 

/COMPARE 

3488 

06751 

2355 


ISZ CWTEMP 

/INCR POINTER 

3489 

06752 

7650 


SNA CLA 


3490 

06753 

5342 


JMP WDLOOP 

/MORE 

3491 

06754 

5736 


JMP I CHKWD 

/FAILED 

3492 

06755 

0000 

CWTEMP , 

0 


3493 

06756 

1400 

XDIV, 

FDIVIAFDIV 


3494 

06757 

6600 





/OS/8 BASIC COMPILER 


PAL8-V8 10/30/72 


PAGE 4b 


3495 / INITIALIZATION CODE 

3496 06760 0014 

3497 06761 7774 

3498 06762 0027 

3499 06763 0020 

3500 06784 0102 

3501 06765 7644 

3502 06766 0177 

3503 06767 7400 

3504 06770 3012 

3505 06771 7607 

3506 06772 7604 

3507 06773 7605 

3508 06774 6213 

3509 06775 7600 

3510 06776 4207 

3511 06777 7177 

3512 7000 *LINE 


3513 

07000 

5777* 

START, 

JMP 


RUNNED 

/DO LOOKUPS, AND FIND TEMPFILE 

3514 

07001 

6211 

CHAINED 

,CDF 


10 



3515 

07002 

1776 


TAD 

i 

(7644 

/WAS IT A CHAIN FROM BRTS 

? 

3516 

07003 

6201 


CDF 





3517 

07004 

0375 


ANO 


(100 



3518 

07005 

7650 


SNA 

CLA 




3519 

07006 

5213 


JMP 


CHEOIT 

/NO, FROM THE EDITOR 


3520 

07007 

6212 


CIF 


10 

/CHAIN FROM BRTS, RESET 


3521 

07010 

4774 


JMS 

I 

(200 

/TO FORGET DSKI HANDLER 


3522 

07011 

0013 


13 





3523 

07012 

5773* 


JMP 


STRT3 

/NOW GO OPEN TEMP FILE 


3524 

07013 

1372 

CHEOIT, 

TAD 


(INPO+7 

/PICK UP SOME STUFF 


3525 

07014 

3010 


OCA 


X 10 



3526 

07015 

6211 


CDF 


10 

/FROM THE INFO BLOCK 


3527 

07016 

1410 


TAO 

I 

X10 

/START OF TEMP FILE 


3528 

07017 

3046 


OCA 


BLOCK 



3529 

07020 

1410 


TAO 

I 

X10 

/SIZE OF HOLE 


3530 

07021 

6201 


CDF 





3531 

07022 

3771* 


DCA 


0U3IZE 



3532 

07023 

1046 


TAO 


BLOCK 



3533 

07024 

3770* 


DCA 


OUBLOK 



3534 

07025 

6211 


COF 


10 



3535 

07026 

1410 


TAD 

I 

X10 

/ENTRY ADOR OF HANDLER 


3536 

07027 

6201 


CDF 





3537 

07030 

3767* 


DCA 


INHNDL 



3538 

07031 

5247 


JMP 


STRT2 



3539 

07032 

8211 

GETDEV, 

COF 


10 



3540 

07033 

1768* 


TAD 


7617 

/GET DEVICE NUM FOR INPUT 

FILE 

3541 

07034 

8201 


COF 





3542 

07035 

8212 


CIF 


10 



3543 

07036 

4774 


JMS 

I 

(200 

/GO FETCH THE DEVICE 


3544 

07037 

0001 


1 





3545 

07040 

4401 


INOEVH+l 

/2 PAGE HANDLER IS OK 


3546 

07041 

5320 


JMP 


NG 

/ERROR 


3547 

07042 

1240 


TAD 


• *2 

/GET HANDLER ADDRESS 


3548 

07043 

3787* 


DCA 


INHNDL 

/SAVE IT 


3549 

07044 

6212 


CIF 


10 





/05/a 

BASIC COMPILE* 



PA1.8-V8 

10/30/72 PAGE 4b" 1 

3550 

07045 

4774 


JMS 

I 

(200 

/RESET SYSTEM TABLES 

3551 

07046 

0013 


13 



/DELETING TENTATIVE FILES 

3552 

07047 

6211 

STRT2, 

COF 


10 


3553 

07050 

1766' 


TAD 


7617 

/SET UP INPUT FILE PARAMS 

3554 

07051 

6201 


CDF 




3555 

07052 

0365 


AND 


(7760 

/GET SIZE 

3556 

07053 

1364 


TAD 


(17 


355T 

07054 

7132 


CLL 

CML 

RTR 


3556 

07055 

7012 


RTR 




3559 

07056 

3763' 


DCA 


INCTR 


3560 

07057 

6211 


CDF 


10 


3561 

07060 

1762' 


TAD 


7620 

/GET BLOCK NUMBER 

3562 

07061 

6201 


CDF 




3563 

07062 

3761' 


DCA 


INREC 


3564 

07063 

6211 


CDF 


10 


3565 

07064 

1760' 


TAD 


INFO+3 

/GET START OF 9RTS.SV (-**1) 

3566 

07065 

3050 


DCA 


BRTS 


3567 

07066 

1757' 


TAD 


INFO 

/GET START OF BASIC ,$V (*1) 

3566 

07067 

3052 


DCA 


abort* 

/BOTH FOR BLOAO 

3569 

07070 

1756' 


TAD 


INFQ+2 

/GET START OF BLOAD.SV 

3570 

07071 

6201 


COF 




3571 

07072 

3755' 


DCA 


LDRBLK 

/FOR CHAIN TO 8L0AD 

3572 

07073 

6046 


TLS 



/SET TTY FLAG 

3573 

07074 

1354 

INITST # 

TAD 


(VARST 

•1/INITIALIZE ST AREA 

3574 

07075 

3012 


DCA 


*12 


3575 

07076 

1353 


TAD 


(•436- 

436-436 

3576 

07077 

3011 


DCA 


*11 

/SIZE OF NUM AND STRING TABLES 

3577 

07100 

6211 


CDF 


10 


3578 

07101 

7130 


CLL 

CML 

RAR 

/SET TO 4000 

3579 

07102 

3412 


DCA 

I 

*12 


3560 

07103 

2011 


IS2 


*11 


3581 

07104 

5301 


JMP 


• -3 


3582 

07105 

1352 


TAD 


("440 

/NOW ARRAY TABLES 

3583 

07106 

3011 


DCA 


*11 

/AND BUCKETS 

3564 

07107 

3412 


DCA 

I 

*12 


3585 

07110 

2011 


ISZ 


*11 

/SET THEM TO ZERO 

3586 

07111 

5307 


JMP 


.-2 


3587 

07112 

6201 


CDF 




3588 

07113 

1325 


TAD 


JABORT 

/MODIFY *C LOCATIONS 

3589 

07114 

3751' 


DCA 


7600 


3590 

07115 

1325 


TAD 


JABORT 


3591 

07116 

3750' 


DCA 


7605 


3592 

07117 

5747' 


JMP 


CORE 

/GET CORE SIZE 

3593 

07120 

6046 

NG, 

TLS 




3594 

07121 

4473 


JMS 

I 

QERMSG 

/SUPER ERROR 

3595 

07122 

2331 


2331 




3596 

07123 

6041 


TSF 




3597 

07124 

5323 


JMP 


• "1 


3598 

07125 

5406 

JABORT, 

JMP 

I 

* ABORT 

/ABORT COMPILATION 



/OS/S 

BASIC COMPILER 

PAL6-V6 

3599 

07147 

7200 




3600 

07150 

7605 




3601 

07151 

7600 




3602 

07152 

7340 




3603 

07153 

6246 




3604 

07154 

0377 




3605 

07155 

0351 




3606 

07156 

7606 




3607 

07157 

7604 




3601 

07160 

7607 




3609 

07161 

6620 




3610 

07162 

7620 




3611 

07163 

6732 




3612 

07164 

0017 




3613 

0716S 

7760 




3614 

07166 

7617 




3615 

07167 

6731 




3616 

07170 

6475 




3617 

07171 

6506 




3616 

07172 

7613 




3619 

07173 

4651 




3620 

07174 

0200 




3621 

07173 

0100 




3622 

07176 

7644 




3623 

07177 

4600 




3624 


7200 


•INBUF 


3625 



CORE, 



3626 






3627 

07200 

6201 

COR0, 

CDF 


3626 

07201 

1325 


TAD 

CORSIZ 

3629 

07202 

7006 


RTL 


3630 

07203 

7004 


RAL 


3631 

07204 

0215 


AND 

COR70 

3632 

07205 

1230 


TAD 

COREX 

3633 

07206 

3207 


DCA 

.♦1 

3634 

07207 

6201 

CORl, 

CDF 


3635 

07210 

1723 


TAD I 

CORLOC 

3636 

07211 

7000 

C0R2, 

NOP 


3637 

07212 

3207 


DCA 

CORl 

3636 

07213 

1211 


TAD 

C0R2 

3639 

07214 

3723 


DCA I 

CORLOC 

3640 

07215 

0070 

COR70, 

70 


3641 

07216 

1723 


TAD I 

CORLOC 

3642 

07217 

7400 

CORXi 

7400 


3643 

07220 

1217 


TAD 

CORX 

3644 

07221 

1324 


TAD 

CORV 

3645 

07222 

7640 


SZA CLA 


3646 

07223 

5230 


JMP 

COREX 

3647 

07224 

1207 


TAD 

CORl 

3646 

07225 

3723 


OCA I 

CORLOC 

3649 

07226 

2325 


ISZ 

COR$IZ 

3650 

07227 

5200 


JMP 

CORO 

3651 

07230 

6201 

COREX, 

CDF 


3652 

07231 

7240 


CLA CMA 


3653 

07232 

1325 


TAD 

CORSIZ 
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/OS/8 BASIC COMPILE* 


PAL8-V8 10/30/72 PAGE 47-1 


3654 

07233 

3047 


OCA 

HIFLD 


3655 

07234 

1047 


TAD 

MIFLD 


3656 

07235 

7041 


CIA 



3657 

07236 

3777' 


OCA 

NFLOS 


3658 

07237 

7040 


CM A 


/HOW MANY FIELOS ? v ) '* * £ 

3659 

07240 

1047 


TAD 

HIFLO 

/MUST THIS BASIC USE ? 

3660 

07241 

7640 


S2A 

CLA 

/(SOUNDS LIKE A LINE BY DYLAN) 

3661 

07242 

5255 


JMP 

GENER- 


3662 

0f243 

1 3T6 


TAD 

(PATCH! *3& 177 + 5200 * - / 7 

3663 

07244 

3775' 


DCA 

PATCH! 

/ONLY 8K, DON'T USE CDF 0 S ~ Z 2 

3664 

07245 

1374 


TAD 

(PATCH2*ll&177*5200 "'O' 

3665 

07246 

3773' 


DCA 

PATCH2 s 

:■ *rs r* , . 

3666 

07247 

1372 


TAD 

(PATCH3*4IS1 77*5200 ’ 

3667 

07250 

3771' 


DCA 

PATCH3 ■ 


3668 

07251 

1370 


TAD 

(PATCH4*3&1 77*5200 ' 7,1 

3669 

07252 

3767' 


DCA 

PATCH4 


3670 

07253 

1366 


TAD 

(7000 ' 

_ m m 

3671 

07254 

3765' 


DCA 

.^J*ATCH^ 


3672 

07255 

4764' 

GENER, 

JMS 

GENTMP 

/GENERATE TEMP 0 

3673 

07256 

4764' 


JM3 

GENTMP 

/GENERATE TEMP 1 

3674 

07257 

4764' 


JMS 

GENTMP 

/GENERATE TEMP g 

3675 

07260 

7201 


CLA 

I AC 

/GENERATE STRING TEMP 0 

3676 

07261 

4764' 


JMS 

GENTMP 


3677 

07262 

7201 


CIA 

I AC 


3678 

07263 

3134 


DCA 

WORD 1 

/GENERATE LITERAL 1.0 

3679 

07264 

7132 


CLL 

CML RTR 


3680 

07265 

3135 


DCA 

W0RD2 


3681 

07266 

4517 


JMS 

I QLUKUP2 

/ENTER INTO ST 

3682 

07267 

2562 


LITRL 


3683 

07270 

7775 


-3 



3684 

07271 

4763' 


JMS 

NEWVAR 


3685 

07272 

1362 


TAD 

(FNINIT 

/SET UP FUNCTIONS 

3686 

07273 

3322 


DCA 

fdptr 


3687 

07274 

1361 

FDLOOP, 

TAD 

(WORD1- 

1 

3688 

07275 

3012 


DCA 

X 12 


3689 

07276 

1722 


TAO 

I FDPTR 

/GET FIRST WORD 

3690 

07277 

2322 


ISZ 

FDPTR 


3691 

07300 

7450 


SNA 



3692 

07301 

5510 


JMP 

I QREMARK 

/DONE, START COMPILER 

3693 

07302 

3412 


DCA 

I X 1 2 

/SAVE IN WORD! 

3694 

07303 

7146 


CLL 

CMA RTL 

/GET LOOKUP COUNT 

3695 

07304 

1722 


TAD 

I FDPTR 


3696 

07305 

3320 


DCA 

FUNSIZ 


3697 

07306 

1320 


TAD 

FUNSIZ 

/GET SIZE OF MOVE 

3698 

07307 

7001 


I AC 



3699 

07310 

3021 


DCA 

TEMP 


3700 

07311 

1722 


TAD 

I FDPTR 

/GET A WORD 

3701 

07312 

2322 


ISZ 

FDPTR 


3702 

07313 

3412 


DCA 

I X 12 

/PUT INTO WORDN 

3703 

07314 

2021 


ISZ 

TEMP 


3704 

07315 

5311 


JMP 

• *4 


3705 

07316 

4517 


JMS 

I QLUKUP2 

/ENTER INTO S.T, 

3706 

07317 

2570 


FUNCTN 


3707 

07320 

0000 

FUNSIZ, 

0 



3708 

07321 

5274 


JMP 

FDLOOP 

/LOOP 
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3709 

07322 

0000 

PDPTR, 0 


3710 

07323 

7217 

CORLOC, CORK 


3711 

07324 

1400 

CORV» 1400 


3712 

07323 

0001 

C0R8XZ, 1 


3713 

0732* 

7332 

NAMLST * BCOMPN 

/SAVE PILE NAME-POINTER LIST 

3714 

07327 

733* 

BLOADN 

3713 

07330 

7342 

BRTSN 


371S 

07331 

734* 

BAPN 


3717 

07332 

7532 

BSPN 


3718 

07333 

755* 

BPPN 


3719 

07334 

0000 

0 
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3720 

07361 

3721 

07362 

3722 

07363 

3723 

07364 

3724 

07365 

3725 

07366 

3726 

07367 

3727 

07370 

3726 

07371 

3729 

07372 

3730 

07373 

3731 

07374 

3732 

07375 

3733 

07376 

3734 

07377 

3735 


3736 

07400 

3737 

07401 

3738 

07402 

3739 

07403 

3740 

07404 

3741 

07405 

3742 

07406 

3743 

07407 

3744 

07410 

3745 

07411 

3746 

07412 

3747 

07413 

3748 

07414 

3749 

07415 

3750 

07416 

3751 

07417 

3752 

07420 

3753 

07421 

3754 

07422 

3755 

07423 

3756 

07424 

3757 

07425 

3758 

07426 

3759 

07427 

3760 

07430 

3761 

07431 

3762 

07432 

3763 

07433 

3764 

07434 

3765 

07435 

3766 

07436 

3767 

07437 

3768 

07440 

3769 

07441 

3770 

07442 

3771 

07443 

3772 

07444 

3773 

07445 

3774 

07446 



0133 

7400 

4223 

4200 

2222 

7000 

1520 

5323 

1477 

5303 

2270 

5301 

2214 

5217 

2345 

7400 

7400 PNlNlT « 
7777 
2000 
0000 

7416 
7777 
2000 
0000 

7417 
7777 
6000 
0000 

7436 
7777 
2000 
0000 

7437 
7777 
2000 
4000 

7456 
7777 
2000 
0000 

7457 
7777 
2000 
4000 
7636 
7777 
2000 
0000 

7476 

7776 
0000 
2000 
0000 

7477 

7777 


PAGE 

FUNC37-17200070 


FUNC17M 7200070 


FUNC27-17600070 


FlINCl +20 7 *>1 >20007 0 


FUNC2*20 >*>17 2000 >4000 


FUNC1*40>-1>2000>0 


FUNC2+40>»1>2000> 4000 


FUNCl+2207-i >200070 


FUNC 1+60 7 "27072000 70 


FUNC2+607-17600070 



/ABS 

/ ATN 

/ASC 

/COS 

/CHH 

/EXP 

/DAT 

/SQR 

/EXP2 



/LEN 
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3775 

07447 

6000 




3776 

07450 

0000 




3777 

07451 

7516 


PUNC 1*1 00 1*1 72000)0 

/INT 

3778 

07452 

7777 




3779 

07453 

2000 




3780 

07454 

0000 




3781 

07455 

7517 


FUNC2+1007 *3) 2000740007 600070 

/POS 

3782 

07456 

7775 




3783 

07457 

2000 




3784 

07460 

4000 




3785 

07461 

6000 




3786 

07462 

0000 




3787 

07463 

7536 


FUNC1+ 1207*1 7200070 

/LOG 

3788 

07464 

7777 




3789 

07465 

2000 




3790 

07466 

0000 




3791 

07467 

7537 


FUNC2*1207-37 0720007 60007 4000 

/SEG 

3792 

07470 

7775 




3793 

07471 

0000 




3794 

07472 

2000 




3795 

07473 

6000 




3796 

07474 

4000 




3797 

07475 

7556 


PUNC1*140). 17200070 

/SGN 

3796 

07476 

7777 




3799 

07477 

2000 




3800 

07500 

0000 




3801 

07501 

7557 


FUNC2* 140 7*1 72000)4000 

/STR 

3802 

07502 

7777 




3803 

07503 

2000 




3804 

07504 

4000 




3805 

07505 

7576 


FUNC1*1607*1 7200070 

/SIN 

3806 

07506 

7777 




3807 

07507 

2000 




3808 

07510 

0000 




3809 

07511 

7577 


FUNC2* 1607*1 7600070 

/VAl 

3810 

07512 

7777 




3811 

07513 

6000 




3812 

07514 

0000 




3813 

07515 

7616 


F|JNC1*2007 *1 7 200070 

/RND 

3814 

07516 

7777 




3815 

07517 

2000 




3816 

07520 

0000 




3817 

07521 

7637 


PUNC2+2207*! 7200070 

/TRC 

3818 

07522 

7777 




3819 

07523 

2000 




3820 

07524 

0000 




3821 

07525 

0000 


0 


3822 

07526 

0201 

BASICN, 

FILENAME BASIC. 8V 

/file NAMES 

3823 

07527 

2311 




3824 

07530 

0300 




3825 

07531 

2326 




3826 

07532 

0203 

BCOMPN, 

filename bcomp.sv 

/FOR LOOKUPS 

3827 

07533 

1719 




3828 

07534 

2000 




3629 

07535 

2326 
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3830 

07536 

0214 

3831 

07537 

1701 

3832 

07540 

0400 

3833 

07541 

2326 

3838 

07542 

0222 

3835 

07543 

2423 

3836 

07544 

0000 

3837 

07545 

2326 

3838 

07546 

0201 

3839 

07547 

2311 

3840 

07550 

0300 

3841 

07551 

0106 

3842 

07552 

0201 

3843 

07553 

2311 

3844 

07554 

0300 

3845 

07555 

2306 

3846 

07556 

0201 

3847 

07557 

2311 

3848 

07560 

0300 

3849 

07561 

0606 

3850 

07562 

0201 

3851 

07563 

2311 

3852 

07564 

0300 

3853 

07565 

2506 

3B54 

07566 

0201 

3855 

07567 

2311 

3856 

07570 

0300 

3857 

07571 

2415 

3858 




BLOADN, FILENAME BLOAD.SV 

BRTSN, FILENAME BRTS.SV 

bafn, filename BASIC, AF 

BSFN, FILENAME BASIC.SF 

BFFN, FILENAME BASIC. FF 

bufn, filename BASIC. UF 

TMPFIL, FILENAME BASIC, TM 


S 


/OS/8 BASIC COMPILER 


ABORT 

AklS 

CHEKST 

2441 

ABORTX 

0052 

CHGARG 

1320 

ACM 

3508 

CHKD1M 

0632 

ACNT 

0042 

CHKSDM 

0667 

ACO 

0137 

CHKS6N 

5444 

APADD 

8440 

CHKVAL 

2230 

APOIV 

8600 

CHKWD 

6736 

APLDA 

6640 

CHN 

7414 

APMPV 

6540 

CHRPTR 

0017 

APSTA 

6700 

CLOSE 

3342 

APSUB 

6500 

CLOSEF 

7434 

AIOIV 

6740 

CLRPN 

7501 

AXSUB 

6400 

COLON 

0062 

AU 

5431 

COMARP 

4102 

AMPRTN 

6507 

CONVLP 

5014 

AMPSNO 

1557 

CORE 

7200 

ANORM 

5236 

COREX 

7230 

ARAVST 

2132 

CORLOC 

7323 

AR6CNT 

0061 

CORSIZ 

7325 

AR6LUP 

1216 

CORV 

7324 

AR1 

5414 

CORK 

7217 

ASSIGN 

6067 

COR0 

7200 

A10K 

3465 

COR1 

7207 

A20K 

3445 

CQR2 

7211 

BACK1 

4000 

COR70 

7215 

BADDEP 

1253 

CPSAVE 

4166 

BADEXP 

3122 

CWTEMP 

6755 

BAOPN 

2131 

DACNT 

0062 

BADPOR 

3323 

OALOOP 

1036 

BAOPSS 

3115 

OAPUSH 

1060 

BA0602 

2166 

DAPUT 

1111 

BADIP 

2062 

DATA 

1431 

BAOIET 

0340 

datpld 

1473 

BADNXT 

0762 

DATLST 

2566 

BAOPP 

0504 

OATPTR 

1525 

BAPN 

7546 

OECPT 

0023 

BASICN 

7526 

OEF 

1200 

BCOMPN 

7532 

OEPBAO 

1051 

BFPN 

7556 

OELOOP 

1507 

BLOAON 

7536 

OENTRT 

1455 

BLOCK 

0046 

DIGIT 

3616 

BOSINF 

7774 

OIGTST 

5053 

BRTS 

0050 

DIM 

0600 

BRTSN 

7542 

DIMERR 

0701 

BSPN 

7552 

DIM! 

0742 

BUCKET 

3672 

DLS1ZE 

0051 

BUPN 

7562 

docall 

3200 

CALLUP 

3303 

DOLU 

2432 

CASEAM 

3556 

DOSIGN 

5150 

CASEMA 

3554 

DSSIZE 

1453 

CASEMM 

3555 

OSTRNG 

1441 

CHAIN 

3750 

02 

5234 

CHAINE 

7001 

03 

5235 

CHECKC 

6555 

EOTBGN 

3012 

CHEOIT 

7013 

EOTBLK 

6652 
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EDTSIZ 

1600 

FSUB1 

3314 

END 

0343 

FSUB2 

3326 

ENDEXP 

2741 

PUNCTN 

2570 

ENDPIL 

6633 

FUNC1 

7416 

ENDFNS 

6162 

PUNC2 

7417 

ENTERV 

2307 

FUNC3 

7400 

EOST 

7570 

FUNC4 

7415 

ERMSG 

5706 

PUNFLD 

1336 

ERMSG2 

1712 

FUNNAM 

1246 

ESIGN 

5067 

FUNNUM 

3336 

EXPLUP 

5401 

PUNOK 

5673 

EXPMUL 

5124 

FUNPTR 

1127 

EXPON 

0025 

PUNS 

6071 

EXPR 

2600 

PUNSIZ 

7320 

EXPRTN 

3544 

FUNSRC 

5660 

PADD 

0000 

PUNSS 

3000 

PDIV 

1400 

GCS 

5520 

PDLOOP 

7274 

6ENER 

7255 

POPTR 

7322 

GENTMP 

4200 

PESC 

7410 

GETA1 

3517 

PFLD2 

2311 

GETC 

4035 

PIOIV 

3400 

GETCW8 

4010 

FILE 

2522 

GETOEV 

7032 

FILENO 

7402 

GETEXP 

5063 

FXLESW 

2556 

GETFN 

2111 

PINCAL 

3271 

GETIPN 

2045 

FINDA 

2470 

GETLIN 

0222 

FINOEX 

0067 

GETNAM 

5600 

FINDIM 

0657 

GOSUB 

2154 

PINDSV 

4615 

GOTARV 

2504 

FINDTO 

1621 

GOTCR 

0235 

PININP 

0423 

GOTKW 

0314 

PINSN 

3710 

GOTNAM 

5631 

FISUB 

3000 

GOTO 

2147 

PIXEXP 

5071 

GOTOPR 

2715 

floa 

2000 

GOTREL 

2027 

PLIMIT 

1733 

GOTSN 

3671 

FMPY 

1000 

GOTSYM 

2453 

FNEG 

7403 

H1PL0 

0047 

FNINIT 

7400 

HOOKIN 

2257 

FOPENS 

2552 

ICHAR 

6600 

FOR 

1600 

ICHAR1 

6677 

PORCP 

1736 

ICHAR2 

6673 

FORFLO 

1660 

ICHAR3 

6660 

PORJMP 

0062 

IF 

2000 

PORNC 

1735 

IPENO 

2103 

PPDIV 

5310 

IPLUP1 

2017 

FPOVLP 

5322 

XFLUP2 

2072 

PPMUL 

5200 

IPNREG 

0063 

FPRTNE 

5067 

IPOPS 

4141 

FREE 

2572 

INBREC 

6622 

FREFLD 

2266 

INBUF 

7200 

FSTA 

2400 

INBUPP 

6617 

PSTEP 

1734 

INCHCT 

6730 

FSUB 

0400 

INCTR 

6732 
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INDEVH 

4400 

LSS2 

4400 

NQFNAM 

5702 

OUSIZE 

6506 

INEOF 

6727 

LSS2AC 

7407 

NQGOOD 

0304 

OUTCAL 

3210 

INERR 

6632 

LTEMP 

2344 

NOL.ETR 

3614 

OUTQLD 

2733 

INFO 

7604 

luaray 

2463 

NOMATC 

5677 

OUTOPR 

3400 

INSBUF 

6607 

LUBUF 

4636 

NOREGS 

3336 

qutwrd 

6446 

INHNOL 

6731 

lufld 

0071 

NQRMLP 

5246 

OWTEMP 

6443 

INITST 

7074 

LUKUP2 

2200 

NOSN 

0062 

07100 

3622 

INJMP 

6655 

LUPFLD 

0742 

NOSNUM 

0267 

PATCH 1 

2214 

INJMPP 

6603 

LURETN 

2451 

NOSTAR 

2701 

PATCH2 

2270 

INPTR 

6733 

LUSARY 

2516 

NOSTRG 

5624 

PATCH3 

1477 

INPUT 

0400 

LUSTRG 

2456 

NOTHEN 

2055 

PATCH4 

1520 

INPUTL 

0402 

LUVAR 

2427 

NOTHIN 

2627 

PATCH5 

2222 

INREC 

6620 

L6201 

2242 

NQTNEW 

3100 

PCRIF 

0062 

INTMP 

6726 

MAC 

3456 

NOTNUM 

3150 

PETA8L 

6000 

ITRCNT 

5371 

MDLABL 

3725 

NOTQOT 

5535 

PEXP 

0522 

JABORT 

7125 

MINUS 

2755 

NOTSAM 

2250 

pfcall 

0475 

JARFLO 

1413 

MISARG 

2752 

NOTSSD 

3040 

PLUS 

2557 

JARONO 

0062 

MIXED 

3511 

NOTVAR 

3136 

POP 

4052 

JEOF 

5400 

MM 

3452 

NOWRIT 

6463 

POSEXP 

5117 

JEQ 

5006 

MODE 

0055 

NOZERO 

5755 

POSTX 

0350 

JFOR 

5010 

MOOSET 

5542 

NO6000 

5256 

PRFUN 

0547 

JGE 

5002 

MORDAT 

1435 

NROl 

7521 

PRINT 

0443 

JGT 

5004 

MOVARG 

3227 

NUMBER 

5000 

PRINTL 

0446 

JUE 

5007 

MULLUP 

5215 

NUMCMP 

2041 

PRNTSN 

5741 

JIT 

5005 

M42 

5457 

NWS V AR 

4236 

PRTENO 

0534 

JNE 

5003 

M5 

1131 

NXTDGT 

5155 

PSN 

5735 

JSUB 

5000 

NAME1 

0134 

N3SIZE 

2346 

PUSH 

4062 

JTABLE 

2416 

NAME2 

0135 

OADD 

5353 

PUSHO 

4073 

JUMP 

5001 

NAME3 

0136 

OCQUNT 

6445 

PUSH2 

2727 

KBOCHK 

2346 

namlst 

7326 

ODEVH 

6505 

PUT 1 

0532 

KEYWRD 

6243 

NCHARS 

0020 

OKFUN 

1256 

PUT2 

0540 

KHIUOOP 

0273 

NCSAVE 

4165 

OKINAC 

3253 

PUT40 

5514 

LORBLK 

0351 

ndigit 

0024 

0LDN3 

2342 

Q0ACK1 

0125 

LEAO0 

5757 

NOOK 

3104 

OLOOP 

0031 

QCHECK 

0113 

LEFT 

0030 

negfac 

5267 

OLOSTK 

0060 

QCHKWD 

0075 

LET 

0316 

NERARY 

2511 

ONSTAK 

3107 

GCOMAR 

0115 

LETTER 

3600 

newflo 

2233 

QPENAF 

7454 

QOIGIT 

0131 

LFDOLR 

5610 

nerlin 

0201 

OPEN A V 

7474 

GERMSG 

0073 

LINE 

7000 

NEWN3 

2343 

OPENNF 

7514 

QEXPR 

0105 

LINEM 

0053 

NEWOP 

0032 

OPENNV 

7534 

QGETA1 

0111 

LINEL 

0054 

NEWSN 

3716 

OPO 

0143 

OGETC 

0102 

LINMAX 

0120 

NEWVAR 

4223 

OPRANO 

2643 

QGETCW 

0103 

LITRL 

2562 

NEXT 

0016 

QPRLUP 

2705 

OGETNA 

0114 

LOAD 

4117 

NEXTL 

0713 

0PR8R 

2663 

QIETTE 

0130 

LOAOSN 

6000 

NEXTX 

0704 

0PR8RS 

6050 

QUOAD 

0120 

LOAOSS 

4303 

NFCNT 

5236 

DPI 

0140 

QLOAOS 

0112 

LOCTRH 

0044 

NFLOS 

2345 

0P2 

0141 

QLOOSN 

0074 

LOCTRL 

0045 

NFLOOP 

5275 

0P25IZ 

6554 

QLOOKU 

0116 

LOOSN 

0547 

NFPTR 

5307 

OP3 

0142 

QLUKUP 

0117 

LOOSSS 

4314 

NFUNS 

1133 

QSTACK 

0014 

QMOOSE 

0076 

LOOIST 

6513 

NG 

7120 

QU8L0K 

6475 

QNEWLI 

0107 

LOOKUP 

2400 

NMOOE 

7541 

0U9UF 

0000 

QNOREG 

0132 

LOOK2 

2212 

NOCR 

0461 

OUOUMP 

6471 

QNUM6E 

0126 

LSS1 

4000 

NQOIGT 

3630 

OUERR 

6502 

QOUTOP 

0106 

LSS1AC 

7406 

NOEXP 

5077 

OUPTR 

6444 

QOUTwR 

0100 
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QPOP 

0122 

SNUMS 

2532 

QPU8H 

0121 

SPACE 

5750 

QPUSHO 

0123 

8PCIAL 

3514 

QREMAR 

0110 

8R0L 

7441 

QRESTC 

0104 

SREAD 

1000 

OSAVAC 

0124 

SSINAC 

4347 

08AVEC 

0101 

SSLOAO 

4323 

08NUM 

00TT 

SSLOOP 

3014 

Q8TRIN 

0127 

SSREG1 

0044 

010 

1132 

S8REG2 

0045 

Q2 

1130 

S8T0RE 

2400 

0400 

0133 

SSTYPE 

4320 

RANDOM 

3144 

STACK 

0015 

READ 

7411 

STACKA 

7120 

REAOX 

1324 

STACKO 

1134 

RELOPR 

2111 

STAKSZ 

0040 

REMARK 

0205 

STAR 

0354 

RESAR6 

1400 

START 

7000 

REST 

7405 

STCHEK 

2317 

RESTCP 

4027 

STEMPS 

2540 

RESTOR 

0542 

STEP! 

1727 

RET 

7404 

STKLVL 

0044 

RETURN 

3541 

STKOVR 

4070 

RNDO 

7421 

STMPCT 

0035 

R8TRN6 

0431 

STMPLV 

0034 

RUNNEO 

4400 

STOKSZ 

0044 

8ACNT 

0043 

STOP 

7441 

SACOMP 

4440 

STOPX 

3545 

SACON 

4400 

STOVER 

2337 

SALOAD 

4440 

STPTR 

0037 

SAREAD 

4500 

3TRARC 

1054 

SARYST 

2332 

3TRCMP 

2045 
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1000 

1131 

1198 

1241 

760 

1006 

1113 

1558 



1760 

1793 

2085 

2294 

2302 

3681 

587 

751 

964 

1186 

1238 

1244 

2011 

2241 

2344 




478 

565 

627 

728 

894 

902 

1495 

1886 

2016 

2143 



893 

1083 

1845 




1612 

1616 





429 

471 

477 

491 

493 

596 

809 

680 

969 

978 

1033 

1059 

1103 

1115 

1172 

1174 

1226 

1232 

1820 

1836 

1650 

1869 

1885 

1941 

2347 

2391 

2395 

2840 



599 

718 

821 

825 

827 

1597 

1689 

1691 

1693 

1695 

1732 

1735 

766 

1073 

1075 

1077 

^179 

1523 




QPUSHO 

QREMAR 


1527 1528 1541 1607 

102# 1568 1570 1721 

41# 385 444 451 

461 1086 1116 1133 

2135 3642 


QRESTC 

87# 

31# 

457 

463 

Q8AVAC 

103# 

1561 

1653 

1673 

05AVEC 

84# 

308 

437 

1021 

QSNUM 

82# 

288 

1168 

1236 

Q8TRIN 

106# 

904 

1754 


010 

703 

734# 



Q2 

642 

643 

732# 


8*00 

110# 

1680 

1837 

1924 

RANDOM 

2013# 

3260 



READ 

234# 

341 



REAOX 

458# 

982 

3226 


REkOPR 

1144 

1171 

1192 

1202 

REMARK 

41 

252 

255# 

332 

RE8ARG 

854 

870# 

878 


REST 

235# 

482 



RESTCP 

87 

2182# 

2187 


RE8T0R 

474# 

3238 



RET 

234# 

879 

2012 


RETURN 

2010# 

3245 



RNDO 

221# 

2012 

2013 


RSTRNG 

384 

406# 



RUNNED 

2407# 

3513 



8ACNT 

44# 

1467 



8AC0MP 

214# 

3476 



SACON 

213# 




SALOAD 

216# 




8AREAD 

215# 

413 



8ARYST 

161# 

162 

1469 


SASIGN 

3047# 




SASTOR 

217# 




SAVAC 

103 

2329# 

2330 

2332 

SAVECP 

84 

2176# 

2181 


8AVEJF 

1035# 

1090 



SCOMP 

204# 

3475 



3C0MPR 

1184 

3327 

3339 

3372# 

SCON 

208# 




SCRTN 

3326# 

3373 



SETPkO 

75# 

77 

297 

715 


1802 

1823 

2096 

2106 

SETJF 

220# 

1032 



3F 

3842 




SHIFT 

2072# 

2079 



SIGN 

2476 

2480# 

2575 


SKIP2 

3337 

3342# 



SKPEXP 

2561 

2572# 



SLASH 

1633# 

3040 



SkITRk 

166# 

167 

1761 


SLOAD 

211# 




SLOOP 

2784# 

2801 



SMLNUM 

519 

532 

2527 

2733# 

SHOOE 

242# 

2838 

2839 


SNLOOP 

2067# 

2084 



SNUM 

82 

2054# 

2057 

2063 

SNUMS 

162# 

163 

2061 


SPACE 

2945 

2968# 





1204# 

337 344 3230 


2337 2351 


714 742 437 444 1272 1321 

2312 2323 


2736 


2105 2115 


SPCIAL 

1901 

1973# 


5RDL 

223# 

967 


SRC AD 

210# 

413 

414 

SSXNAC 

2385 

23 93# 


SSLOAD 

2363 

2366 

2367 

SSLOOP 

1662# 

1686 


SSREG1 

71# 



SSRES2 

72# 



SSTORE 

212# 



SSTYPE 

2369# 

2362 


STACK 

26# 

263 

589 


1729 

2202 

2205 

STACKA 

26 

73 

148# 

STACKQ 

25 

260 

736# 

staksz 

149# 

2211 


STAR 

361# 

3036 


START 

3513# 



STCHEK 

730 

777 

926 

STEMPS 

164# 

165 

2303 

STEP! 

1029 

1067# 


STKUVL 

73# 

262 

621 

STKOVR 

2215# 

2224 


STMPCT 

42# 

259 

891 

STMPLV 

43# 

258 

892 

STOKSZ 

737# 

2220 


STOP 

222# 

350 

2013 

STOPX 

2014# 

3250 


STOVER 

1358# 

1431 

2317 

STPTR 

44# 

542 

554 


831 

871 

874 


1454 

1455 

1458 

STRARG 

681 

688# 


STRCMP 

1161 

1184# 


STRGER 

2803 

2607# 

2816 

STRING 

106 

2779# 

2782 

STRTMP 

2290 

2299# 


STRT2 

3538 

3552# 


STRT3 

2448# 

3523 


5V 

3822 

3626 

3830 

svarst 

159# 

160 

1437 

SVCNT 

47# 

1435 

2319 

SVTEMP 

2333 

2334 

2339 

SWRITE 

241# 



SWT ARC 

825# 



SYMBU 

61# 

400 

977 

SYMBL2 

1919 

1940 

1968 

SYMBOL 

36# 

623 

752 


1426 

1432 

1459 


1870 

2001 

2090 


2922 



TABPNT 

427 

433# 


TEMP 

30# 

267 

271 


547 

550 

552 


683 

702 

814 


1142 

1156 

1159 


1622 

1625 

1690 


1812 

1818 

1922 


2104 

2107 

2358 


2812 

2960 

2975 


163# 

164 

2295 


2373# 2392 2396 


620 

2206 

588 

737 

810 

2210 

2211 

2220 

847 

2212 

850 

858 

1084 

1728 

1044 

1314 

1342# 

1346 

1347 

1349 

1357 

1085 







2299 

2300 






2014 







2328 

555 

1416 

1463 

556 

1418 

1464 

558 

1427 

1659 

559 

1443 

169a 

561 

1445 

1706 

761 

1450 

1711 

828 

1453 

1712 

2783 

2790 

2806 

2809 

2813 




3834 







2326 







2340 

2341 

2343 

2349 

2350 

2352# 


1678 

1951 

1985 

2253 




2009# 







763 

830 

833 

1007 

1114 

1298 

1425 

1559 

1694 

1722 

1787 

1797 

1821 

1867 

2098 

2310 

2311 

2321 

2322 

2346 

2348 

312 

315 

326 

327 

340 

341 

539 

593 

609 

615 

616 

618 

663 

682 

836 

918 

920 

924 

938 

946 

1139 

1170 

1194 

1246 

1521 

1524 

1586 

1594 

1701 

1720 

1736 

1739 

1798 

1805 

1808 

1974 

1975 

1988 

1999 

2055 

2091 

2097 

2415 

2786 

2794 

2797 

2798 

2799 

2810 

3333 

3335 

3338 

3699 

3703 





TEMP2 

31# 

298 

300 

301 

303 

665 

668 

689 

”01 

744 

834 

1143 

1151 

1173 

1246 

1560 

1569 

1657 

1704 

1710 


1715 

206S 

2063 

2095 

2099 

2110 

2374 

2386 

2393 

2788 


2S00 










TM 

3854 










TMPBLK 

2453# 

2456 

2458 

2460 







TMPCNT 

40# 

257 

669 

1061 

2291 

2292 





TMPFIL 

2453 

3854# 









tmplvl 

41# 

256 

890 

1082 







TOOMNY 

2362 

2370# 









TRYDEC 

2483 

2502# 









TRYEi 

2509 

2512# 









TRYE2 

2504 

2516# 









TRYFUN 

2869 

2892# 









TRYPNT 

440 

457# 




2955 





TTX 

1ST 7 

2122 

2124# 

2131 

2953 


2974 



TTY 

2116# 

2123 

2941 

2943 

2946 

2947 

2970 



TTYFIL 

1209 

1228# 









TNODXM 

524 

532# 









TW2 

2606 

2615 

2617 

2630# 







TM3 

2608 

2618 

2620 

2632# 







TYPCMK 

1952# 

1969 

1996 





743 

746 

757 

TYPE 

35# 

514 

528 

568 

584 

676 

696 

765 

822 

823 

632 

1003 

1106 

1112 

1397 

1563 

1567 


1655 

1696 

1697 

1719 

1827 

1902 

1909 

1958 

1963 

1993 


1997 

2864 

2878 

2879 

2868 

2889 

2924 



965 

TYPE! 

60# 

387 

394 

409 

446 

468 

670 

723 

963 

971 

1219 

1488 

1669 

1675 

1807 

1815 

1825 

1828 

1838 


1842 

1858 

1935 

1945 

1954 

1959 

1963 

1986 

2137 

2240 


2242 

2247 

3351 








TYPE2 

1917 

1920 

1923 

1928 

1955 

1994 

2008# 




UDEF 

644# 

729 

737 

3277 







UF 

3850 










UHOPR 

631# 

1540 









UMRTNE 

633 

1990# 









UNOPR 

1532# 

1536 

1542 

1610 







UNREFD 

545 

551# 









UPAROW 

365# 

3042 









USE 

248# 

1102 









U8EERR 

1105 

1109# 









U8EX 

1102# 

3281 









USRFUN 

2908 

2931# 









VARCNT 

45# 

1412 

2308 

2315 







VARST 

158# 

159 

1414 

3573 







VCPTR 

1402# 

1413 

1423 

1429 

1436 

1441 

1466 




VERS 

20# 










VERSON 

17# 

20 









WDUOOP 

34S1# 

3490 









W60TO 

1178 

3101# 








940 

WORD! 

112# 

250 

293 

489 

706 

772 

906 

910 

912 

1283 

1332 

1756 

1792 

1632 

2066 

2075 

2077 

2472 

2537 


2602 

2626 

2654 

2655 

2657 

2680 

2703 

2755 

2764 

2829 


3678 

3687 









WORDS 

114# 

295 

492 

2058 

2059 

2072 

2074 

2080 

2082 

2473 


2486 

2605 

2611 

2635 

2643 

2684 

2705 

2722 

2723 

2746 


2748 

2765 

2767 

2785 

2958 

2961 

2964 

2965 

3680 


WORDS 

116# 

2069 

2081 

2474 

2488 

2607 

2612 

2637 

2646 

2707 


2718 

2719 

2749 

2751 

2762 

2764 





WPNT 

459 

2847# 









WRITE 

240# 

470 










WSTEP 

1028 

2516 

2561# 


WTAB 

439 

1740# 



WTHEN 

1095# 

1166 



WTO 

1025 

3163# 



xabopt 

19# 

357 

1360 

1373 

X ADO 

987 

986 

1503 

1504 

XDIV 

1636 

3493# 



MIDI V 

1635 

2645# 



XISUB 

1631 

2144# 



XLOAD 

597 

634# 

1903 


XrtUL 

363 

364 

2978# 


XSCOMP 

3375 

3376 

3475* 


XSTCHE 

709 

730# 



X3T0R 

2345 

2353# 

3048 

3050 

XSUB 

1058 

1099# 

1632 


xxxxsv 

2423 

2426# 

2431 


X10 

21# 

265 

270 

279 


1145 

1146 

1150 

1189 


1593 

1603 

1624 

1851 


1918 

1973 

2094 

2418 


2926 

2927 

3525 

3527 

XU 

22# 

1284 

1288 

1333 


2390 

2420 

2554 

2562 


3583 

3585 



X 1 2 

23# 

787 

835 

840 


3579 

3564 

3686 

3693 

X 1 3 

24# 

84B 

857 

870 

ZEXP 

2641 

2657# 



*10366 

353 




*L0370 

350 




*L037 1 

344 




*1.0372 

306 




a L0375 

266 




^t-037 6 

264 

281 

283 


*10377 

260 




*L®S61 

490 




*1.0362 

482 




*10563 

476 




*L0564 

470 




*10565 

461 




*L0566 

441 




*10567 

428 




*L0570 

425 




*1.0571 

422 




*L0572 

414 




*10573 

413 




*1.0574 

399 




*L0575 

398 




*L0S76 

391 




*L0772 

606 




*1.0773 

604 




*1.0774 

588 




*L0775 

574 




*L0776 

537 

538 

543 


*L 1 3 7 2 

806 




*1.1373 

804 




*1.1375 

790 




*U1377 

775 




*11567 

976 




*L1570 

975 





2217 3321 3598 

2585# 


307 

309 

319 

322 

941 

943 

1193 

1282 

1291 

1296 

1588 

1589 

1898 

1899 

1905 

1907 

1915 

1916 

2434 

2447 

2910 

2911 

2917 

2921 

3529 

3535 





1335 

1981 

1982 

1984 

2379 

2380 

2564 

2566 

2568 

2572 

3576 

3580 

843 

845 

2414 

3348 

3355 

3574 


3702 

872 876 2412 


J-iw 

9*8 


*11572 

9*7 


*L1573 

940 


*U576 

923 


*US77 

879 


*11764 

1102 


*1.1 7*5 

1089 


*L17** 

1087 


*11767 

1070 



1081 


*U774 

1034 


*1.1775 

1032 


*L2t7i 

1245 


*12172 

1231 


*1,2173 

1225 


*12174 

1201 


*12175 

1104 


*121 7* 

11*2 


*L2l77 

1144 


*1.2171 

1374 


*12371 

1371 


*12373 

1370 


*1237# 

1351 


*12375 

1312 


*1237* 

1283 

1332 

*1.2377 

1270 


*L25*4 

1473 


*125*5 

14*9 


*1.256* 

14*7 


*1.25*7 

1457 


*1.2570 

1442 


*12571 

1440 


*12572 

1437 


*12573 

1435 

14*5 

*1.2575 

1421 


*1257* 

1414 


*12577 

1412 


*L27fc5 

1587 


*127** 

1585 


*1.2767 

1582 


*12770 

1575 

1580 

*L2771 

15*4 


*U2774 

1543 


*12775 

1540 


*1.277* 

1537 


*12777 

1534 


*L3171 

1727 


*13174 

1707 


*LS17* 

1*77 


*1.3177 

1*50 

1*98 

*13370 

1084 


*1.3373 

1649 


*13374 

1647 


*L3375 

1819 

i860 

*13570 

2014 


*13571 

2013 


*13572 

2012 


*1.3574 

2000 


*L3575 

1995 


*L357* 

1921 

1987 


L3577 1903 

L3765 21«1 

1.3766 2121 

L3767 2118 

L3770 2102 

L3771 2064 2070 

13772 2061 

13773 2046 

L3774 2044 

L3775 2036 2117 

L3776 2033 

L3777 2030 

L4170 2252 

14171 2251 

1.4172 2232 

U4173 2228 

L4174 2220 

U4175 2211 

L4176 2198 

L4177 2195 

L4373 2394 

L4374 2389 

L4375 2388 

L4377 2309 2320 

L.4777 2408 2426 2439 2451 

L5164 2577 

L5165 2573 

LS166 2553 

L.5167 2551 

L5170 2548 

lS 1 7 1 2538 

>,5172 2536 

.5174 2507 

.5175 2494 2500 

.5176 2492 2493 2495 

.5373 2690 

.5374 2660 

.5375 2652 2699 

.5376 2614 2677 

.5377 2609 2682 

.5567 2839 

.5570 2838 

.5571 2826 

.5572 2827 

.5573 2811 

.5574 2787 

.5575 2785 

.5576 2774 

.5577 2770 

.5765 2973 

.5766 2967 

.5767 2954 

.5771 2952 

.5773 2923 

.5774 2909 

.5775 2906 

.5776 2883 


5777 2874 2682 

6575 3342 




*1.6577 3302 

*L6760 3466 

*L676t 3460 

*16762 3459 

*L6763 3454 

*1.6764 3451 

J.6765 3448 

*1.6766 3447 

*1.6767 3434 3443 

*1.6774 3414 

*L&776 3412 

*1.6777 3402 

*1,7152 3582 

*17153 3575 

*U7154 3573 

*17164 35S6 

*1.7165 3555 

*17172 3524 

*L7l74 3521 3543 

*17175 3517 

*17176 3515 

*L7361 3687 

*1.7362 3685 

*17366 3670 

*1.7370 3668 

*17372 3666 

*1.7374 3664 

*17376 3662 
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0010 

X10*10 

20 

0011 

111*11 

21 

001J 

X13»13 

22 

0015 

STACKM5 

23 

0020 

STCDF*20 /KEY INTERPRETER LOCATIONS 

24 

0021 

NSTADR»STCDF+I 

25 

0022 

NASTAD'NSTADR+l 

26 

0023 

SSTADR*NASTAD+1 

27 

0024 

SASTAD*SSTADR+1 

28 

0025 

CODCDF'SASTADtl 

29 

0026 

CODBGNtCODCDF+1 

30 

0027 

DATTOPaCODBGNM 

31 

0030 

DATPTR*DATT0P*1 

32 
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SwPINFaQATPTR+1 

33 

0040 
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0041 

SVCNTaVARCNTM 

35 

0042 
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36 
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38 

0045 
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HIFLDaBLOCK+l 

41 

0050 
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42 

0051 
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43 

0052 

AB0RTX»DLSIZE+1 

44 
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FREEHI»AB0RTX*1 /LOCATIONS USED BY RELOCATION CODE 

45 

0054 

FREEL0»FREEHI*1 

46 

0055 

TEMP«FREEL0*1 

47 

0056 

TEMP2»TEMP*l 

48 

0057 

TEMP3»TEMP2*1 

49 

0060 

W0RD1«TEMP3*1 

50 

0061 

W0RD2*W0R01*1 

51 

0062 

W0RD3«W0RD2+1 

52 

0063 

NCHARS«K0RD3*1 

53 

0064 

SUBMI«NCHARS*1 

54 

0065 

SUBL0«SU8HI*1 

55 

0066 

C0DSZ1«SUBL0*1 

56 

0067 

C0DSZ2»C0DSZ1*1 
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0070 

L0CHI«C0D8Z2*1 
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60 

0073 

C00FaC0D8+l 
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78 
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SLITRL«LITRL*2 


79 

2566 
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80 
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81 

3012 
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/CLEAR LINE NUMBER 
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LXNEL 


94 

00407 

1015 


TAD 


STACK 

/ANY UNCLOSED FOR*S 7 

95 

00410 

7041 


CIA 




96 

00411 

1376 


TAD 


(STACKA. 

»l 

97 

00412 

7650 


SNA 

CLA 



98 

00413 

5216 


JMP 


.♦3 

/NO 

99 

00414 

4775* 


JMS 


ERMSG 

/YES 

100 

00415 

2506 


2506 



101 

00416 

7240 


CIA 

CMA 

- \ 


102 

00417 

1047 


TAD 


HIFLD 

/NO CDF *S IF ONUY 8K 

103 

00420 

7640 


SZA 

CLA 



104 

00421 

5233 


JMP 


NOPATCH 

/NO PATCHES 

105 

00422 

1374 


TAD 


CPATLST* 

»1 r- 

106 

00423 

3010 


DCA 


X10 


107 

00424 

1410 

PATLUP, 

TAD 

I 

X 10 


108 

00425 

7450 


SNA 




109 

00426 

5773* 


JMP 


STSTUF 


110 

00427 

3055 


DCA 


TEMP 

/ALWAYS TWO WORDS 

111 

00430 

1372 


TAD 


(7410 

112 

00431 

3455 


DCA 

1 

TEMP 

113 

00432 

5224 


JMP 


patlup 


ri4 

00433 

6211 

NOPATCH 

,w r 


10 


115 

00434 

1771 


TAD 

I 

(DCB 

/CHECK FOR TD8E SYSTEM 

116 

00435 

0370 


AND 


(770 

/ED FRIEDMAN GAVE ME THIS CODE 

117 

00436 

1367 


TAD 


(-210 

/AND I *M TAKING IT ON FAITH 

118 

00437 

6201 


CDF 




119 

00440 

7650 


SNA 

CLA 



120 

00441 

1766 * 


TAD 


7642 

/IS IT A ROM SYSTEM ? 

121 

00442 

1365 


TAD 


(-6223 


122 

00443 

7640 


SZA 

CLA 



123 

00444 

5250 


JMP 


N0TD8E 

/NO TD/8E OR ROM TD/8E 

124 

00445 

1364 


TAD 


(7377 

/TD8E SYS WASTES 400 WORDS 

125 

00446 

3054 


DCA 


FREELO 


126 

00447 

7130 


CLL 

CML 

RAR 

/SET SWAP INFO 

127 

00450 

7001 

N0TD8E. 

I AC 




128 

00451 

3031 


DCA 


SWPINF 


129 

00452 

4763* 


JMS 


FREEF 

/GET CDF TO HIGHEST FIELD 

130 

00453 

3336 


DCA 



/INTO 2 PLACES 

131 

00454 

1336 


TAO 


SWE.F1 


132 

00455 

3345 


DCA 




133 

00456 

3314 


DCA 


SWPFLAG 

/CLEAR THE SWAP FLAG 

134 

00457 

4261 


JMS 


SWAP 

/MOVE OSS OUT 

135 

00460 

5773* 


JMP 


STSTUF 

/DO SYMBOL TABLE STUFF 

136 

00461 

0000 

SWAP, 

0 



/SWAP OSS RESIDENT 

137 

00462 

7130 


CLL 

CML 

RAR 

/4000 

138 

00463 

0031 


AND 


SWPINF 

/IS IT A TD8E SYS ? 

139 

00464 

7640 


SZA 

CLA 



140 

00465 

5272 


JMP 


T08ESYS 

/YES 
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141 

142 

143 

144 

145 
148 

147 

148 

149 
130 

151 

152 

153 

154 

155 
158 

157 

158 

159 
180 
181 
182 

183 

184 

185 

186 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 


00466 

4315 


jms 


SWPSUB 

/SWAP 17600 TO/FROM N7600 

00467 

6211 


Ct)F 


10 


00470 

7600 


7600 




00471 

5661 


JMP 

I 

SWAP 


00472 

4315 

TD8ESYS, 

JMS 


SWPSUB 

/SWAP 17600 TO/FROM N7400 

00473 

6211 


CDF 


10 


00474 

7400 


7400 




00475 

4315 


JMS 


SWPSUB 

/SWAP 27600 TO/FROM N7600 

00476 

6221 

L6221 t 

CDF 


20 


00477 

7600 

L7600, 

7600 




00500 

7126 


CLL 

CML 

KTl 

/FIX UP 07600 STUFF TO MATCH 

00501 

1336 


TAD 


SWPF1 

/CIF COF N0 

00502 

3766* 


DC A 


7642 


00503 

1336 


TAO 


SWPF1 


00304 

7001 


X AC 



/CIF N0 

00505 

3762* 


DCA 


7721 


00506 

1762* 


TAD 


7721 


00507 

3761* 


DCA 


7727 


00510 

5661 


JMP 

I 

SWAP 


00511 

7200 

SWPRET, 

CIA 




00512 

6201 


CDF 



/RETURN IF 8K 

00513 

5661 


JMP 

I 

SWAP 


00514 

0000 

SWPFLAG 

,0 




00515 

0000 

SWPSUB , 

0 



/SWAPPER 

00516 

1715 


TAD 

I 

SWPSUB 

/GET FIELD 

00517 

3334 


DCA 


SWP1 

/TWICE 

00520 

1334 


TAD 


SWPl 


00521 

3347 


DCA 


SWP2 

/ONCE FOR EACH DIRECTION 

00522 

2315 


ISZ 


SWPSUB 


00523 

1715 


TAD 

I 

SWPSUB 

/GET MI FIELD AQDR 

00524 

3055 


DCA 


TEMP 


00525 

2315 


ISZ 


SWPSUB 


00526 

1277 


TAD 


L7600 

/GET COUNT /POI TER 

00527 

3056 


DCA 


TEMP2 


00530 

1314 


TAD 


SWPFLAG 

/WHICH WAY 7 

00531 

7640 


SZA 

CLA 



00532 

5345 


JMP 


SWPF2 

/PUT 0S8 BACK 

00533 

2314 


ISZ 


SWFFtTAG 

/MOVE OSS OUT 

00534 

7402 

SWPl, 

HLT 




00535 

1456 

, 

TAD 

I 

TEMP2 

/GET PART OF RESIDENT 

00536 

5311’ 

■jswppju^ 

JMP 


SwPRET . 

/RETURN IF 8K ONLY 

00537 

3455 

— — 

DCA 

I 

TEMP 

/INTO HI FIELD 

00540 

2055 


ISZ 


TEMP 

/BUMP POINTER 

00541 

2056 


ISZ 


TEMP2 

/AND PTR/CTR 

00542 

5334 


JMP 


SWPt 

/LOOP 

00543 

6201 


CDF 




00544 

5715 


JMP 

I 

SWPSUB 


00545 

5661 

SWPF2P 

JMP 

I 

SWAP 

/IF 8K JUST RETURN 

00546 

1455 


TAD 

I 

TEMP 

/GET WORD OF HI FIELD 

00547 

7402 

SWP2, 

HLT 




00550 

3456 


OCA 

I 

TEMP2 

/BACK WHERE IT BELONGS 

00551 

2055 


xsz 


TEMP 


00552 

2056 


ISZ 


TEMP2 


00553 

5345 


JMP 


SWPF2 


00554 

6201 


CDF 
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196 

00555 

1276 

TAD 

L622 1 /SET UP TO FIX FIELD 0 CDFS 

197 

00556 

3336 

DCA 

SWPFi'j 

198 

0055? 

5715 

JMP I 

SRP’SUB 


/OS/8 

BASIC i 

LOADER 
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199 

00561 

7787 






00562 

7781 





801 

00563 

2130 





80S 

0056# 

7377 





803 

00565 

1555 





204 

00566 

7642 





205 

0056T 

7570 





806 

00570 

0770 





207 

00571 

7760 





808 

00572 

7410 





209 

00573 

1000 





210 

00574 

1343 





811 

00575 

1712 





812 

00576 

7117 





213 

00577 

7577 





214 


0600 


PAGE 



815 

00600 

6201 

NOOAT A , 

CDF 



816 

00601 

4777* 


JMS 

FREEF 

/SAVE FIELD 

817 

00602 

7041 


CIA 



818 

00603 

3105 


DCA 

CLRFLD 

/FOR ARRAY CLEARING 

819 

00604 

1054 


TAD 

FREELO 

/SAVE THIS ADDR 

880 

00605 

7041 


CIA 



881 

00606 

3106 


DCA 

CLREND 

/FOR END OF ARRAY CLEAR 

228 

00607 

8054 


ISZ 

FREELO 

/MAKE IT NEXT FREE ♦ I 

223 

00610 

1376 


TAD 

(SVARST 

• 1 

884 

00611 

3010 


DCA 

X10 

/ALLOCATE STRING VARS 

885 

00612 

1375 


TAD 

(*•436 


226 

00613 

3055 


DCA 

TEMP 


827 

00614 

6811 

ASVLUP, 

CDF 

10 


888 

00615 

1410 


TAD I 

X10 

/LOOK FOR DEFINED STRING 

829 

00616 

3056 


DCA 

TEMP2 

/SAVE SYMBOL NUMBER 

230 

00617 

1410 


TAD I 

X10 

/GET SIZE 

831 

00620 

7510 


SPA 



232 

00621 

1374 


TAD 

(4010 

/IF UNOEF USE 16 CHARS 

833 

00622 

3057 


DCA 

TEMP3 


234 

00623 

1056 


TAD 

TEMP2 

/IS IT DEFINED ? 

835 

00624 

6201 


CDF 



236 

00625 

7700 


SMA CLA 


837 

00626 

4860 


JM5 

SVSTOR 

/YES, CREATE ENTRY 

238 

00627 

2055 


ISZ 

TEMP 

/BUMP COUNT 

839 

00630 

5214 


JMP 

ASVLUP 

/LOOP 

240 

00631 

6211 


CDF 

10 

/ALLOCATE STRING TEMPS 

841 

00632 

1773 

P6 , 

TAD I 

(STEMPSM 

842 

00633 

3843 


DCA 

STEMPF 

/ INIT FIELD 

243 

00634 

1772 


TAD I 

(STEMPS 

/AND POINTER 

244 

00635 

7410 


SKP 



245 

00636 

1055 

stmlup, 

TAD 

TEMP 

/LOOK AT NEXT ENTRY 

246 

00637 

7450 


SNA 



847 

00640 

5771 * 


JMP 

ALLQCA 

/DONE GO ALLOCATE ARRAYS 

248 

00641 

1370 


TAD 

(-1 


249 

00642 

3010 


DCA 

X10 

/GET POINTER 

850 

00643 

6811 

STEMPF, 

CDF 

10 


851 

00644 

1410 


TAD I 

X10 

/GET ADDR OF NEXT ENTRY 

852 

00645 

3055 


DCA 

TEMP 

/SAVE IT 

253 

00646 

1410 

P7, 

TAO I 

X10 

/AND ITS FIELD 
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254 

00647 

3243 


OCA 


255 

00650 

2010 


ISZ 


256 

00651 

1410 


TAD 

I 

257 

00652 

3056 


DCA 


258 

00653 

6201 


COF 


259 

00654 

1367 


TAD 


260 

00655 

3057 


OCA 


261 

00656 

4260 


JMS 


262 

00657 

5236 


JMP 


263 

00660 

0000 

SVSTOR, 

0 


264 

00661 

1056 


TAD 


265 

00662 

7104 


CLL 

RAL 

266 

00663 

1056 


TAD 


267 

00664 

1023 


TAD 


266 

00665 

3011 


DCA 


269 

00666 

1037 


TAD 


270 

00667 

1366 


TAD 


271 

00670 

7110 


CLL 

RAR 

272 

00671 

3065 


DCA 


273 

00672 

3064 


DCA 


274 

00673 

4331 


JMS 


275 

00674 

1054 


TAO 


276 

00675 

3411 


DCA 

I 

277 

00676 

4777* 


JMS 


276 

00677 

3411 


DCA 

I 

279 

00700 

1057 


TAD 


280 

00701 

7041 


CIA 


281 

00702 

3411 


DCA 

I 

282 

00703 

5660 


JMP 

I 

283 

00704 

0000 

PSN, 

0 


264 

00705 

3061 


DCA 


285 

00706 

7146 


CLL 

CMA 

286 

00707 

3104 


DCA 


287 

00710 

1061 

PRNTSN, 

TAD 


288 

00711 

7106 


CLL 

RTL 

269 

00712 

7006 


RTL 


290 

00713 

3061 


DCA 


291 

00714 

1061 


TAD 


292 

00715 

7004 


RAL 


293 

00716 

0365 


AND 


294 

00717 

7440 

SPACE, 

SZA 


295 

00720 

5324 


JMP 


296 

00721 

1764* 


TAD 


297 

00722 

7650 


SNA 

CLA 

296 

00723 

5326 


JMP 


299 

00724 

1363 

NOZERO, 

TAD 


300 

00725 

4764* 


JMS 


301 

00726 

2104 

LEAD0, 

ISZ 


302 

00727 

5310 


JMP 


303 

00730 

5704 


JMP 

I 

304 

00731 

0000 

SUB, 

0 


305 

00732 

1065 


TAD 


306 

00733 

7161 


CLL 

CML 

307 

00734 

1054 


TAD 


306 

00735 

3054 


DCA 



STEMPF 

X10 /SKIP TEMP NUMBER 

X 10 /GET STM NUMBER 

TEMP2 

(110 /GIVE IT MAX SIZE 
TEMP3 

SVSTOR /ALOOCATE IT 
STMIUP /LOOP 

/MAKE ST ENTRY FOR STRING VAR 
TEMPS /PINO ST AODR 

TEMP2 

SSTAOR 

XU 

TEMPI /NUMBER OF CHARS 
(3 

SUBLO /NUMBER OF MORDS 
SUBHI 

SUB /freehi,lo»freehi,lo-subhi,lo 

FREELO /SAVE AODR 
XU 

FREEF /AND FIELD 
XU 

TEMP3 /PUT IN MAX LENGTH 
/(NEGATIVE) 

XU 

S V S TOR 

/PRINT 3 DIGITS DECIMAL 

WORDS 

RTL /-3 
XLABEl 

WORDS /GET NEXT DIGIT 

/INTO THE LOW ORDER 
/THREE BITS AND THE LINK 
WORDS /SAVE SHIFTED NUMBER 
WORDS /NOW DO LAST SHIFT 

(IT /ONLY FOUR BITS 

NOZERO /NOT A ZERO 
TTY /ANY DIGITS YET ? 

LEAO0 /NO, ITS A LEADING ZERO 
(60 /MAKE IT ASCII 
TTY /PRINT DIGIT 

XLABEL /8UMP COUNT 
PRNTSN /MORE DIGIT (S) 

PSN 

/DOUBLE SUBTRACT 
SUBLO /SUBTRACT LOWER 
CIA 

FREELO 

FREELO 


/OS/8 

BASIC 

LOADER 
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309 

00736 

7004 


RAL 


/GET BORROW 

310 

00737 

1064 


TAD 

SDBHI 


311 

00740 

7041 


CIA 



312 

00741 

1053 


TAD 

FREEHI 

/SUBTRACT UPPER 

313 

00742 

3053 


DC A 

FREEHI 

/SAVE NEW UPPER 

314 

00743 

1053 


TAD 

FREEHI 

/DID IT FIT ? 

315 

00744 

7740 


SMA SZA CLA 


318 

00745 

5731 


JMR ] 

[ SUB 

/YUP 

317 

00746 

3102 

TQQBIG, 

DCA 

LINEN 

/CLEAR LINE NUMBER 

318 

00747 

3103 


OCA 

LINEL 


319 

00750 

4762' 


JMS 

ERMSG 

/WRITE MESSAGE 

320 

00751 

2402 


2402 


/TOO BIG 

321 

00752 

5761' 


JMP 

ABORTL 

/ABORT RUN 

322 

00753 

0000 

TTX, 

0 


/PRINT CHAR ON TTY 

323 

00754 

6041 


TSF 


/WAIT FOR PREVIOUS CHAR 

324 

00755 

5354 


JMP 

« * 1 


325 

00756 

6046 


TLS 


/PRINT THIS ONE 

326 

00757 

7200 


CLA 



327 

00760 

5753 


JMP I 

TTX 



/OS/8 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 
336 

339 

340 

341 
348 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 
356 

359 

360 

361 

362 

363 

364 

365 

366 
367 
366 

369 

370 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 
388 
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/ CAUTION HI 

/ THIS PAGE AND THE NEXT ONE ARE 
/ OVERLAYED BY THE INPUT BUFFER 
/ AS SOON AS THE ROUTINE "INWORO" 

/ IS CAUED. THIS FIRST HAPPENS 

/ AFTER THE TAG "RELCIT" . 


00761 

2136 



00762 

1712 



00763 

0060 



00764 

1740 



00765 

0017 



00766 

0003 



00767 

0110 



00770 

7777 



00771 

1400 



00772 

2560 



00773 

2561 



00774 

4010 



00775 

7342 



00776 

1035 



00777 

2130 




1000 

PAGE 


01000 

1054 

STSTUF, TAD 

FREELO 

01001 

7041 

CIA 


01002 

3107 

OCA 

RESAOR 

01003 

1040 

TAD 

VARCNT 

01004 

1377 

TAD 

(401 

01005 

7041 

CIA 


01006 

3040 

DCA 

VARCNT 

01007 

1041 

TAD 

SVCNT 

01010 

1377 

TAD 

(401 

01011 

7041 

CIA 


01012 

3041 

DCA 

SVCNT 

01013 

1042 

TAD 

ACNT 

01014 

1376 

TAD 

(41 

01015 

7041 

CIA 


01016 

3042 

DCA 

ACNT 

01017 

1043 

TAO 

SACNT 

01020 

1376 

TAD 

(41 

01021 

7041 

CIA 


01022 

3043 

DCA 

SACNT 

01023 

4775* 

4MS 

FREEF 

01024 

3020 

DCA 

STCDF 

01025 

1040 

TAD 

VARCNT 

01026 

7104 

CLL RAL 


01027 

1040 

TAO 

VARCNT 

01030 

1054 

TAO 

FREELO 

01031 

3054 

DCA 

FREELO 

01032 

1054 

TAD 

FREELO 

01033 

7001 

I AC 


01034 

3021 

DCA 

NSTADR 

01035 

1054 

TAD 

FREELO 

01036 

3010 

DCA 

X10 

01037 

3410 

DCA I 

X10 

01040 

3410 

OCA 1 

X10 


/SAVE START OF RESIDENT -1 
/NEGATED 

/USED TO COMPUTE AMOUNT OF MOVE 

/GET NUMBER OF 

/VARIABLES 


/STRING VARIABLES 


/ARRAYS 


/AND STRING ARRAYS 


/SAVE HIGH FIELD 

/SUBTRACT SPACE FOR 

/SCALAR TABLE (3 WORDS A PIECE) 

/DON'T BOTHER WITH A 
/DOUBLE PREC. SUBTRACTION 
/SAVE START OF SCALAR TABLE 
/FOR INTERPRETER 

/CLEAR ALL VARIABLES 
/IN THE 
/SCALAR TABLE 
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363 

0 1041 

3410 


OCA 

I 

X10 


364 

01042 

2040 


I5Z 


VARCNT 


365 

01043 

5237 


JMP 


• -4 

/JUST TO BE NICE 

366 

01044 

6211 


CDF 


10 

/PREPARE TO MOVE ^ 

367 

01045 

1774 

PI# 

TAD 

I 

CLITRL + i/THE NUMERIC LITERALS TX 

366 

01046 

3257 


DCA 


LFLD 

/INTO THE SCALAR TABLE 

369 

01047 

1773 


TAD 

I 

CLITRL 


390 

01050 

6201 


CDF 




391 

01051 

7410 


SKP 




392 

01052 

1055 

NLLOOP# 

TAD 


TEMP 

/ ADDR OF NEXT LITERAL 

393 

01053 

7450 


SNA 




394 

01054 

5311 


JMP 


NONL 

/NO MORE NUMERIC LITERALS 

395 

01055 

1372 


TAD 


C»1 


396 

01056 

3010 


DCA 


X10 


397 

01057 

6211 

LFLD# 

CDF 


10 

' 

396 

01060 

1410 


TAD 

X 

X10 

/GET ADDR OF NEXT LITERAL 

399 

01061 

3055 


OCA 


TEMP 

/ALSO ITS FIELD 

400 

01062 

1410 

P2» 

TAD 

I 

X10 

401 

01063 

3257 


DCA 


LFLD 

402 

01064 

1410 


TAD 

I 

X 1 0 

/NOW ITS VALUE 

403 

01065 

3060 


DCA 


WORD! 


404 

01066 

1410 


TAD 

I 

X10 


405 

01067 

3061 


DCA 


W0RD2 


406 

01070 

1410 


TAD 

I 

X 1 0 


407 

01071 

3062 


DCA 


M0RD3 


406 

01072 

1410 


TAD 

I 

X 1 0 

/NOW THE SYMBOL NUMBER 

409 

01073 

3056 


DCA 


TEMP2 


410 

01074 

1056 


TAD 


TEMPS 

/TIMES THREE 

411 

01075 

7104 


CLL 

RAL 



412 

01076 

1056 


TAD 


TEMPS 


413 

01077 

1054 


TAO 


FREELO 

/PLUS START 

414 

01100 

3011 


DCA 


Xll 

/GIVES STORE ADDR 

415 

01101 

6201 


CDF 




416 

01102 

1060 


TAD 


WORD! 

/NOW PUT LITERAL INTO TABLE 

417 

01103 

3411 


DCA 

I 

Xll 


416 

01104 

1061 


TAO 


WQRD2 


419 

01105 

3411 


OCA 

X 

Xll 


420 

01106 

1062 


TAD 


W0RD3 


421 

01107 

3411 


DCA 

I 

Xll 


422 

01110 

5252 


JMP 


NLLOOP 

/DO NEXT LITERAL 

423 

01111 

1042 

NONL# 

TAD 


ACNT 

/ALLOCATE ARRAY TABLE 

424 

01112 

7104 


CLL 

RAL 



425 

01113 

7104 


CLL 

RAL 


/FOUR WORDS PER 

426 

01114 

1054 


TAD 


FREELO 

/SUBTRACT FROM LOWER END 

427 

01115 

3054 


DCA 


FREELO 


426 

01116 

1054 


TAD 


FREELO 

/SAVE THIS 

429 

01117 

3022 


DCA 


NASTAD 

/START OF ARRAY TABLE 

430 

01120 

1041 


TAD 


SVCNT 

/ALLOCATE 

431 

01121 

7104 


CLL 

RAL 


/STRING VAR TABLE 

432 

01122 

1041 


TAD 


SVCNT 


433 

01123 

1054 


TAD 


FREELO 

/3 WORDS EACH 

434 

01124 

3054 


DCA 


FREELO 


435 

01125 

1054 


TAO 


FREELO 

/AND SAVE IT FOR THE INT 

436 

01126 

3023 


DCA 


SSTAOR 


437 

01127 

1043 


TAD 


SACNT 

/NOW SPACE FOR STRING 
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438 

0U30 

7104 


CLL 

RAL 


/ARRAY 


439 

01131 

7104 


CLL 

RAL 




440 

01132 

1054 


TAD 


FREELO 

/TABLE 


441 

01133 

3054 


DC A 


FREELO 



442 

01134 

1054 


7AD 


FREELO 

/SAVE FOR INT 


443 

01135 

3024 


DCA 


SASTAD 



444 

01136 

6211 


COP 


10 

/PREPARE TO MOVE 


445 

01137 

1771 

P3, 

TAD 

I 

(SLITRLM 


448 

01140 

3362 


DCA 


SLFLD 

/STRING LITERALS 


447 

01141 

1770 


TAD 

X 

CSLITRL 



448 

01142 

6201 


CDF 





449 

01143 

7410 


SKP 





450 

01144 

1055 

5LL00P, 

TAD 


TEMP 

/IS NEXT LIT THERE 

7 

451 

01145 

7450 


SNA 





452 

01146 

5767 * 


JMP 


NOSL 

/NO, END OF THE LINE 

453 

01147 

1372 


TAD 


(■1 



454 

01150 

3010 


DCA 


X10 



455 

01151 

4361 


JMS 


8FLD 

/SET THE FIELD 


458 

01152 

1410 


TAD 

I 

X10 

/GET ADDR OF NEXT 


457 

01153 

3055 


DCA 


TEMP 



458 

01154 

1410 

P4, 

TAD 

I 

X10 

/ALSO FIELD 5V ! 


459 

01155 

3056 


DCA 


TEMP2 



480 

01156 

1410 


TAD 

I 

X10 

/THEN CHAR COUNT 


481 

01157 

3063 


DCA 


NCHARS 



482 

01160 

5766* 


JMP 


SUT2 

/DO REST OF STRING 

LIT 

483 

01161 

0000 

SFLD, 

0 





484 

01162 

6211 

SLPLD, 

CDF 


10 



485 

01163 

5761 


JMP 

I 

SFLD 
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466 

01166 

1200 






467 

01167 

1257 






466 

01170 

2564 






469 

01171 

2565 






470 

01172 

7777 






471 

01173 

2562 






472 

01174 

2563 






473 

01175 

2130 






474 

01176 

0041 






475 

01177 

0401 






476 


1200 


PAGE 



477 

01200 

1063 

SUIT2, 

TAD 


NCHARS 

/COMPUTE WORD COUNT 

476 

01201 

1377 


TAD 


(3 


479 

01202 

7110 


CLL 

RAR 



460 

01203 

1010 


TAD 


X 1 0 

/TO GET ADDR OF SYMBOL NUMBER 

481 

01204 

3057 


DC A 


TEMP3 


462 

01205 

1457 


TAD 

I 

TEMPI 


483 

01206 

7104 


CLL 

RAL 


/SYM NUMBER TIMES 3 

464 

01207 

1457 


TAD 

I 

TEMP3 


465 

01210 

1023 


TAD 


SSTADR 

/PLUS BASE 

466 

01211 

3011 


DCA 


XU 

/GIVES ST ADDR 

467 

01212 

1063 


TAD 


NCHARS 

/ALLOCATE SPACE FOR IT 

468 

01213 

7001 


I AC 




469 

01214 

7170 


CLL 

CML 

CMA RAR 


490 

01215 

3057 


DCA 


TEMP3 

/(SAVE NUMBER OF WORDS) 

491 

01216 

1057 


TAD 


TEMR3 


492 

01217 

7100 


CLL 




493 

01220 

1054 


TAD 


FREELO 


494 

01221 

3054 


DCA 


FREELO 

/BELOW THE SYMBOL TABLES 

495 

01222 

7420 


SNL 




496 

01223 

5337 


JMP 


TMSLIT 

/TOO MUCH STRING LITERALS 

497 

01224 

1054 


TAD 


FREELO 


498 

01225 

1376 


TAD 


(-END-10 

499 

01226 

7630 


SZL 

CLA 



500 

01227 

5337 


JMP 


TMSLIT 

/DITTO 

501 

01230 

1054 


TAD 


FREELO 

/STICK THE ADDR 

502 

01231 

7001 


I AC 




503 

01232 

6201 


COF 




504 

01233 

3411 


DCA 

I 

XU 

/INTO THE ST ENTRY 

505 

01234 

4775* 


JMS 


FREEF 

/ALSO THE FIELD 

506 

01235 

3411 


DCA 

I 

XU 


507 

01236 

1063 


TAD 


NCHARS 

/ALSO THE SIZE 

506 

01237 

7041 


CIA 




509 

01240 

3411 


DCA 

I 

XU 


510 

01241 

1054 


TAD 


FREELO 

/THIS IS WHERE IT GOES 

511 

01242 

3011 


DCA 


XU 


512 

01243 

1063 


TAD 


NCHARS 

/PUT IN THE LENGTH TOO 

513 

01244 

7041 


CIA 



/(NEGATIVE) 

514 

01245 

5251 


JMP 


.♦9 


515 

01246 

4774* 

MQVSL t 

JMS 


sfld 


516 

01247 

1410 


TAD 

I 

*10 


517 

01250 

6201 


CDF 




518 

01251 

3411 


DCA 

I 

XU 

/MOVE THE LITERAL TEXT 

519 

01252 

2057 


I5Z 


TEMP3 


520 

01253 

5246 


JMP 


MQVSL 



4 • • 
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521 

01254 

1056 

P5, 

TAD 

TEMP2 

/PUT THE FIELD OF THE NEXT 

522 

01255 

3773* 


DCA 

SIFLO 

/ENTRY WHERE IT DOES THE MOST GOOD 

523 

01256 

5772* 


JMP 

SLLOOP 

/DO THE NEXT LITERAL 

524 

01257 

1054 

NQSL f 

TAO 

FREELO 

/SAVE TOP OF DATA LIST 

525 

01260 

3027 


DCA 

OATTOP 


526 

01261 

1027 


TAD 

DATTOP 

/IF EMPTY MAKE TOP«0OTTOM 

527 

01262 

3030 


DCA 

OATPTR 


52ft 

01263 

1051 


TAD 

OLSIZE 


529 

01264 

7450 


SNA 


/IS ANY DATA 1 

530 

01265 

5771* 


JMP 

NODATA 

/NO 

531 

01266 

7100 


CLL 



532 

01267 

1054 


TAO 

FREELO 

/GET START OF DATA 

533 

01270 

3054 


DCA 

FREELO 


534 

01271 

7420 


SNL 



535 

01272 

5332 


JMP 

TMOATA 

/TOO MUCH DATA 

536 

01273 

1054 


TAO 

FREELO 


537 

01274 

1376 


TAD 

(•END* 1 0 

538 

01275 

7630 


SZL CUA 



539 

01276 

5332 


JMP 

TMDATA 

/DITTO 

540 

01277 

1054 


TAO 

FREELO 

/SAVE IT 

541 

01300 

3030 


DCA 

OATPTR 


542 

01301 

1054 


TAD 

FREELO 

/USE X 13 TO FILL LIST 

543 

01302 

3013 


DCA 

X 13 


544 

01303 

1370 


TAD 

CDATLST 

-1 

545 

01304 

3010 


DCA 

X 10 


546 

01305 

6211 


CDF 

10 


547 

01306 

1410 

DATIUP, 

TAD I 

X 10 

/ANY MORE DATA ELEMENTS ? 

548 

01307 

7450 


SNA 



549 

01310 

5771* 


JMP 

NODATA 


550 

01311 

3055 


DCA 

TEMP 

/SAVE ADOR 

551 

01312 

1410 

pa, 

TAD I 

X 1 0 

/GET NEW FIELD 1 

552 

01313 

3320 


DCA 

OATAF1 


553 

01314 

1320 

P9, 

TAD 

DATAFt 

/TWICE 

554 

01315 

3326 


DCA 

DATAF2 


555 

01316 

1055 


TAD 

TEMP 

/START WITH NEW ELEMENT 

556 

01317 

3010 


DCA 

X 1 0 


557 

01320 

6211 

DAT AP 1 , 

CDF 

10 


558 

01321 

1455 


TAD I 

TEMP 

/GET COUNT 

559 

01322 

3055 


DCA 

TEMP 


560 

01323 

1410 

DATMOV, 

TAD I 

X10 

/GET NEXT WORD 

561 

01324 

6201 


CDF 



562 

01325 

3413 


DCA I 

X 1 3 

/MOVE INTO OATA AREA 

563 

01326 

6211 

DATAF2, 

CDF 

10 


564 

01327 

2055 


ISZ 

TEMP 


565 

01330 

5323 


JMP 

DATMOV 


566 

01331 

5306 


JMP 

OATLUP 

/DO NEXT ELEMENT 

567 

01332 

3103 

TMDATA, 

DCA 

LINEL 

/ZERO LINE NUMBER 

566 

01333 

3102 


DCA 

LINEN 


569 

01334 

4767' 


JMS 

ERMSG 

/PRINT ERROR MESSAGE 

570 

01335 

2404 


2904 



571 

01336 

5766* 


JMP 

ABORTL 


572 

01337 

3102 

TMSLIT, 

DCA 

LINEH 

/CLEAR THE LINE NUMBER 

573 

01340 

3103 


DCA 

LINEL 


574 

01341 

4767' 


JMS 

ERMSG 

/PRINT MESSAGE 

575 

01342 

2423 


2423 




/OS/8 BASIC LOAOeR 


PAL6-V8 10/30/78 PAGE 6-2 


576 

01343 

5766' 

577 

01344 

1045 

578 

01345 

106^ 

579 

01346 

1137 

580 

01347 

1154 

581 

01350 

1254 

582 

01351 

0632 

583 

01352 

0646 

58a 

01353 

1312 

585 

01354 

1314 

586 

01355 

0000 


PATLST, 


JMP ABORTL 

PUP2|P3IP«»P5»P6>P7»P8>P9J0 
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587 

01366 

2136 






588 

01367 

1712 






589 

01370 

2565 






590 

01371 

0600 






591 

01372 

1144 






592 

01373 

1162 






593 

01374 

1161 






59 8 

01375 

2130 






595 

01376 

5370 






59* 

01377 

0003 






597 


1400 


RAGE 



598 

01400 

1042 

ALLOCA, 

TAD 


ACNT 

/ANY ARRAYS 7 

599 

01401 

7650 


SNA 

CLA 



600 

01402 

5260 


JMP 


ALLOCS 

/NO 

601 

01403 

1377 


TAD 


(ARAY5T 

/ALLOCATE ARRAYS 

602 

01404 

3010 


DCA 


X10 


603 

01405 

1022 


TAD 


NASTAD 


608 

01406 

3011 


DCA 


Xll 


605 

01407 

6211 

DOARAY, 

CDP 


10 


606 

01410 

1410 


TAD 

I 

X10 

/GET NEXT ARRAY 

607 

01411 

3055 


DCA 


TEMP 


608 

01412 

1410 


TAD 

I 

X10 

/GET FIRST DIM 

609 

01413 

7450 


SNA 




610 

01414 

1376 


TAD 


(12 

/USE 10 IF NONE 

611 

01415 

7001 


!AC 



/ALLOCATE 0TH ELEMENT 

612 

01416 

3056 


DCA 


TEMP2 


613 

01417 

1410 


TAD 

I 

X10 

/GET SECOND DIM 

618 

01420 

7450 


SNA 




615 

01421 

1376 


TAD 


(12 


616 

01422 

7001 


IAC 




617 

01423 

3057 


DCA 


TEMP3 


618 

01424 

1057 


TAD 


TEMP3 

/GET READY TO SUBTRACT 

619 

01425 

3065 


DCA 


3U8L0 


620 

01426 

3064 


DCA 


$U8H! 


621 

01427 

6201 


CDF 




622 

01430 

7132 


CLL 

CML 

RTR 


623 

01431 

0055 


AND 


TEMP 

/HOW MANY OIMS ? 

628 

01432 

7650 


SNA 

CLA 



625 

01433 

5237 


JMP 


ONLY 1 

/ONE 

626 

01434 

1056 


TAD 


TEMP2 

/PRODUCT OF DIMS 

627 

01435 

4775* 


JMS 


MUL12 


626 

01436 

5242 


JMP 


TXMES3 

/MULT BY 3 

629 

01437 

3057 

ONLYli 

DCA 


TEMP3 

/ZERO SECOND DIMENSION 

630 

01440 

1056 


TAD 


TEMP2 


631 

01441 

3065 


OCA 


SUSLO 


632 

01442 

1374 

TIMES3, 

TAD 


(3 

/MULT SIZE BY 3 

633 

01443 

4775* 


JMS 


MUL12 


638 

01444 

4773" 


JMS 


SUB 

/SUBTRACT PROM FREE 

635 

01445 

1054 


TAD 


FREELO 


636 

01446 

3411 


DCA 

I 

Xll 

/SAVE AODR IN S.T. 

637 

01447 

4772* 


JMS 


FREEF 


638 

01450 

3411 


DCA 

I 

Xll 


639 

01451 

1056 


TAD 


TEMPS 

/ALSO DIMS 

640 

01452 

3411 


OCA 

I 

Xll 


641 

01453 

1057 


TAD 


TEMP3 
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642 

01454 

3411 


OCA 

I 

XU 


643 

01455 

2010 


ISZ 


X10 

/SKIP SYMBOL NUMBER 

644 

01458 

2042 


ISZ 


ACNT 


645 

01457 

5207 


JMP 


OOARAY 


646 

01460 

1043 

allocs, 

TAD 


SACNT 

/ANY STRING ARRAYS 

647 

01461 

7650 


SNA 

CLA 



646 

01462 

5771* 


JMP 


RELCIT 

/NO 

649 

01463 

1370 


TAO 


CSARYST* 1 

650 

01464 

3010 


OCA 


X 1 0 

/ALLOCATE STRING ARRAYS 

651 

01465 

1024 


TAO 


SASTAD 


652 

01466 

3011 


OCA 


XU 


653 

01467 

6211 

DOSARY, 

CDF 


10 


654 

01470 

1410 


TAO 

I 

X 1 0 


655 

01471 

7450 


SNA 




656 

01472 

1376 


TAO 


(12 

/USE 10 FOR DIM 

657 

01473 

7001 


I AC 




656 

01474 

3057 


OCA 


TEMP3 


659 

01475 

1410 


TAO 

I 

X10 

/GET DIM 

660 

01476 

7450 


SNA 




661 

01477 

1367 


TAO 


(10 

/USE 16 IF NO SIZE SPEC 

662 

01500 

3056 


OCA 


TEMPS 


663 

01501 

1057 


TAD 


TEMP3 


664 

01502 

3065 


OCA 


SUBLO 

/PREPARE FOR MULT 

665 

01503 

3064 


OCA 


SUBMI 


666 

01504 

6201 


CDF 




667 

01505 

1056 


TAD 


TEMP2 

/GET NUM WOROS PER STRING 

666 

01506 

1374 


TAD 


(3 


669 

01507 

7110 


CLL 

RAR 



670 

01510 

4775* 


JMS 


MUL12 

/GET ARRAY SIZE 

671 

01511 

4773* 


JMS 


SUB 

/DO SUBTRACTION 

672 

01512 

1054 


TAD 


FREELQ 

/SAVE AOOR 

673 

01513 

3411 


OCA 

I 

XU 


674 

01514 

4772" 


JMS 


FREEF 


675 

01515 

3411 


OCA 

I 

XU 


676 

01516 

1056 


TAD 


TEMP2 

/AND STRING SIZE 

677 

01517 

7041 


CIA 



/(SIZES ARE NEG) 

678 

01520 

3411 


OCA 

I 

XU 


679 

01521 

1057 


TAO 


TEMP3 

/AND NUMBER OF STRINGS 

680 

01522 

3411 


OCA 

I 

XU 


681 

01523 

2010 


ISZ 


X10 

/SKIP NEXT NAME 

682 

01524 

2010 


ISZ 


X 10 

/AND NEXT SYM NUMBER 

683 

01525 

2043 


ISZ 


SACNT 


684 

01526 

5267 


JMP 


DOSARY 


665 

01527 

5771' 


JMP 


RELCIT 


686 

01530 

0000 

INWQRO, 

0 



/READ FROM CODE FILE 

687 

01531 

2074 


ISZ 


ICOUNT 

/ANYTHING IN BUFFER 

688 

01532 

5345 


JMP 


NOREAD 

/YASSUHi 

689 

01533 

4766 


JMS 

I 

(7607 

/READ NEXT BLOCK 

690 

01534 

0200 


200 




691 

01535 

1000 


1000 


/NOTES THIS OVERLAYS USED CODE 

692 

01536 

0000 

INBLOK, 

0 




693 

01537 

5765' 


JMP 


IOERR 


694 

01540 

2336 


ISZ 


INBLOK 

/BUM P BLOCK COUNTER 

695 

01541 

1335 


TAD 


INBLOK- 

1/RESET BUFFER POINTER 

696 

01542 

3350 


OCA 


INRTR 
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LOADER 
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697 

01543 

1364 

TAD 

(•400 

/AND COUNTER 

698 

01544 

3074 

OCA 

ICOUNT 


699 

01545 

1750 

NOREAD, TAD I 

INPTR 

/GET WORD 

700 

01546 

2350 

1SZ 

INPTR 

/BUMP POINTER 

701 

01547 

5730 

JMP I 

INWORD 


702 

01550 

0000 

INPTR, 0 
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703 

01564 

7400 






704 

01565 

2312 






705 

01566 

7607 






70S 

01567 

0010 






707 

01570 

2333 






70S 

01571 

1600 






709 

01572 

2130 






710 

01573 

0731 






711 

01574 

0003 






712 

01575 

2254 






713 

01576 

0012 






71* 

01577 

2132 






715 


1600 


PAGE 



718 

01600 

1045 

RELCIT, 

TAD 


LOCTRL 

/FIND START OF CODE 

717 

01601 

7101 


CLL 

I AC 



710 

01602 

3065 


OCA 


SUBLQ 

/BY SUBTRACTING 

719 

01603 

7004 


RAL 




720 

01404 

1044 


TAD 


LOCTRH 

/AMOUNT FROM FREE 

721 

01603 

3064 


DCA 


SUBHX 


722 

01606 

4777* 


JMS 


SUB 


723 

01607 

1034 


TAD 


FREELO 

/THIS IS THE START OF THE CODE 

724 

01610 

3026 


OCA 


CODBBN 

/MINUS ONE 

723 

01611 

1053 


TAD 


FREEHJ 

/THIS IS THE FIELD NUMBER 

728 

01612 

3025 


OCA 


COOCOF 


727 

01613 

1045 


TAO 


LOCTRL 

/SET UP PROG SIZE COUNT 

728 

01614 

7161 


CU 

CML 

CIA 


729 

01615 

3066 


OCA 


CODSZ1 

/LONER COUNT 

730 

01616 

7004 


RAL 




731 

01617 

1044 


TAO 


LOCTRH 


732 

01620 

7041 


CIA 




733 

01621 

3067 


OCA 


C0D8Z2 

/UPPER COUNT 

734 

01622 

1046 


TAO 


BLOCK 

/SET UP FOR READ AND WRITE 

733 

01623 

3776* 


OCA 


OUBLOK 


738 

01624 

1046 


TAO 


BLOCK 


737 

01623 

3775* 


OCA 


XNBLQK 


738 

01626 

1374 


TAO 


(*401 


739 

01627 

3075 


OCA 


OCOUNT 


740 

01630 

7240 


CLA 

CMA 



741 

01431 

3074 


OCA 


ICOUNT 


742 

01632 

4773* 

RELOOP, 

JMS 


INWORD 

/GET A WORD OF CODE 

743 

01633 

3055 


DCA 


TEMP 


744 

01634 

1372 


TAO 


(3000 


745 

01635 

1055 


TAO 


TEMP 

/CHECK FOR OPCODE 5000 (GOTO) 

744 

01636 

0371 


AND 


(7000 


747 

01637 

7640 


SZA 

CLA 



748 

01640 

5303 


JMP 


NORELC 

/NO JUMP 

749 

01641 

1055 


TAO 


TEMP 

/REMOVE FIELD BITS 

750 

01642 

0370 


AND 


(340 


751 

01643 

7112 


CLL 

RTR 



752 

01644 

1264 


TAD 


CUF0 


753 

01645 

3254 


DCA 


LBLFLO 

/FIELD OF LABEL ENTRY 

754 

01646 

105S 


TAO 


TEMP 

/ZERO FIELD BITS 

755 

01647 

0367 


AND 


(7437 


758 

01650 

3055 


OCA 


TEMP 


757 

01651 

4773* 


JMS 


INWORO 

/GET REST OF AOQR 


/OS/8 BASIC LOADER 


PAL8-V8 10/30/72 PAGE 8-1 


7se 

01652 

3056 


DCA 


759 

01653 

4766* 


JMS 


760 

01654 

7402 

LBLFLD, 

HLT 


761 

01655 

1456 


TAD 

I 

762 

01656 

0365 


AND 


763 

01657 

3070 


OCA 


764 

01660 

2056 


ISZ 


765 

01661 

1456 


TAD 

I 

766 

01662 

7100 


CLL 


767 

01663 

1026 


TAD 


766 

01664 

6201 

CDF0, 

CDF 


769 

01665 

3071 


DCA 


770 

01666 

7004 


RAL 


771 

01667 

1025 


tad 


772 

01670 

1070 


TAD 


773 

01671 

7106 


CLL 

RTL 

774 

01672 

7006 


rtl 


775 

01673 

7004 


RAL 


776 

01674 

1055 


TAD 


777 

01675 

4764* 


JMS 


776 

01676 

2066 


ISZ 


779 

01677 

7410 


SKP 


780 

01700 

2067 


ISZ 


781 

01701 

1071 


TAD 


782 

01702 

7410 


SKP 


783 

01703 

1055 

NORELC, 

TAD 


784 

01704 

4764* 

RELOUT t 

JMS 


785 

01705 

2066 


ISZ 


766 

01706 

5232 


JMP 


787 

01707 

2067 


ISZ 


788 

01710 

5232 


JMP 


789 

01711 

5763* 


JMP 


790 

01712 

0000 

ERMSG' 

0 


791 

01713 

6201 


CDF 


792 

01714 

1712 


TAO 

I 

793 

01715 

7112 


CLL 

RTR 

794 

01716 

7012 


RTR 


795 

01717 

7012 


RTR 


796 

01720 

4340 


JMS 


797 

01721 

1712 


TAD 

I 

798 

01722 

4340 


JMS 


799 

01723 

2312 


ISZ 


800 

01724 

1762* 


TAD 


801 

01725 

4340 


JMS 


802 

01726 

3340 


DCA 


803 

01727 

1102 


TAD 


804 

01730 

4761* 


JMS 


805 

01731 

1103 


TAD 


806 

01732 

4761* 


JMS 


807 

01733 

1360 


TAD 


808 

01734 

4757' 


JMS 


809 

01735 

1356 


TAD 


810 

01736 

4757* 


JMS 


811 

01737 

5712 


JMP 

I 

812 

01790 

0000 

TTY, 

0 



TEMP2 

CHKLBl 

/CHECK FOR 

UNDEFINED LABEL 

TEMP2 

(7 

LOCH I 
TEMP2 
TEMP2 

/GET ADDR 

TO BE RELOCATED 

C0D6GN 

/ADD BASE 

ADDR 

LOCLO 

/SAVE LOW 

PART OF JUMP 

CODCOF 

LOCHI 

/GET HIGH PART 

/PUT IT INTO CORRECT PLACE 


TEMP /PLUS INSTRUCTION 
OUTWRD 

CODSZ1 /BUMP COUNTER 

C0DSZ2 /CAN'T BE LAST WORD 
LOCLO /OUTPUT LOW ORDER ADDR 

TEMP /JUST OUTPUT IT 

OUTWRD 

C0D3Z1 /DOUBLE WORD ISZ BUMP 

RELOOP 

C0DSZ2 

RELOOP 

LOADIT /DONE RELOCATING f GO LOAD 
/PRINT ERROR MESSAGE 

ERMSG /GET CODE 

/PRINT FIRST CHAR 


TTY 

ERMSG /PRINT SECOND CHAR 

TTY 

ERMSG /FIX RETURN AQDR 

SPACE /PRINT SPACE 

TTY 

TTY /USE TTY AS A SWITCH 

LINEH /PRINT HIGH ORDER 

PSN 

LINEL /THEN LOW ORDER 

PSN /(LINE NUMBER NATCH 1) 

(215 /PRINT CARRIAGE RETURN 

TTX 

(212 /PRINT LINE FEED 

TTX 

ERMSG /RETURN 

/CONVERT TO ASCII AND PRINT 


/OS/6 BASIC LOADER 


613 

01741 

0355 

AND 

614 

01742 

1354 

TAD 

BIS 

01743 

7510 

SPA 

616 

01744 

1353 

TAD 

817 

01745 

1352 

TAD 

816 

01746 

4757* 

JMS 

619 

01747 

5740 

JMP 


PAUS-V8 
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£77 

/SIX BITS ONLY 

(■•40 

/WHAT SIDE OF FORTY 7 

(100 

/LOW SIOE 

(240 

/HIGH SIDE 

TTX 

/PRINT CHAR 

TTY 

/RETURN 


/OS/8 BASIC LOADER PAL8-V8 10/30/72 PAGE 9 

820 017S2 0240 

821 01753 0100 

822 01754 7740 

623 01755 0077 

824 01756 0212 

825 01757 0753 

826 01760 0215 

827 01761 0704 

828 01762 0717 

829 01763 2000 

830 01764 2336 

831 01765 0007 

832 01766 2105 

833 01767 7437 

834 01770 0340 

835 01771 7000 

836 01772 3000 

837 01773 1530 

838 01774 7377 

839 01775 1536 

840 01776 2363 

841 01777 0731 


842 


2000 


PAGE 



643 

02000 

4777* 

LOADIT, 

JM3 


OUDUMP 

/DUMP LAST BLOCK 

644 

02001 

1045 


TAO 


LOCTRL 

/SET UP COUNTER 

645 

02002 

7161 


CIA 

CLL 

CML 


§46 

02003 

3066 


DCA 


CODSZI 


647 

02004 

7004 


RAL 




646 

02005 

1044 


TAD 


LOCTRH 


649 

02006 

7041 


CIA 




850 

02007 

3067 


DCA 


C0DSZ2 


65i 

02010 

1026 


TAD 


COD0GN 


852 

02011 

3055 


DCA 


TEMP 

/CODE BEGIN -1 

853 

02012 

1046 


TAD 


BLOCK 

/SET UP BLOCK NUMBER 

854 

02013 

3776* 


DCA 


INBLOK 


855 

02014 

7240 


CLA 

CM A 



656 

02015 

3074 


DCA 


ICQUNT 


857 

02016 

1025 


TAD 


CODCDF 

/SET UP CODE CDF 

656 

02017 

7106 


CLL 

rtl 



659 

02020 

7004 


RAL 




860 

02021 

1375 


TAO 


(6201 


861 

02022 

3025 


DCA 


CODCDF 


862 

02023 

1025 


TAD 


CODCDF 


863 

02024 

3233 


DCA 


CF 


864 

02025 

2055 

LOOLUP, 

I8Z 


TEMP 

/BUMP POINTER 

865 

02026 

5232 


JMP 


NOFJMP 

/FIELD IS OK 

866 

02027 

1233 


TAO 


CF 

/BUMP THE FIELD 

867 

02030 

1374 


TAD 


(10 


866 

02031 

3233 


DCA 


CF 


869 

02032 

4773* 

NOFJMP t 

JMS 


INWORD 

/GET NEXT WORD 

870 

02033 

7402 

CF, 

HLT 




871 

02034 

3455 


DCA 

1 

TEMP 

/SAVE THE WORD 

872 

02035 

6201 

CDFZER, 

CDF 




873 

02036 

2066 


ISZ 


CODSZI 

/MORE CODE ? 

874 

02037 

5225 


JMP 


LODLUP 

/YES 
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LOADER 
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875 

02040 

2067 


xsz 

C0DSZ2 


876 

02041 

5225 


JMP 

LODLUP 

/YES 

877 

02042 

1233 


TAQ 

CF 

/GET THE FIELD 

878 

02043 

3261 


DCA 

CLEARF 

/AND SAVE IT 

879 

02044 

1106 

clrlup, 

TAO 

CLREND 

/IS THIS THE END OF CLEAR 7 

880 

02045 

1055 


TAD 

TEMP 


881 

02046 

7640 


SZA CLA 



882 

02047 

5254 


JMP 

MORCLR 

/NO, KEEP GOING 

883 

02050 

1105 


TAD 

clrfld 

/OO FIELDS MATCH ? 

884 

02051 

1261 


TAD 

CLEARF 


865 

02052 

7650 


SNA CLA 



886 

02053 

5264 


JMP 

DONCLR 

/YES, ARRAYS ARE CLEARED 

867 

02054 

2055 

MORCLR, 

ISZ 

TEMP 

/BUMP POINTER 

888 

02055 

5261 


JMP 

CLEARF 

/DON'T BUMP FIELD 

869 

02056 

1261 


TAD 

CLEARF 

/DO BUMP FIELD 

890 

02057 

1374 


TAO 

(10 


891 

02060 

3261 


DCA 

CLEARF 


892 

02061 

7402 

CLEARF, 

HLT 



893 

02062 

3455 


DCA I 

TEMP 

/CLEAR THE WORD 

894 

02063 

5244 


JMP 

CLRLUP 

/DO MORE 

895 

02064 

1261 

DONCLR, 

TAD 

CLEARF 

/COPY THE FIELD 

896 

02065 

3277 


DCA 

STFLDM 


897 

02066 

1055 


TAD 

TEMP 

/GET THE COUNT 

698 

02067 

1107 


TAD 

RESADR 

/OF HOW MUCH SYMBOL TABLE 

899 

02070 

3056 


DCA 

TEMP2 

/TO MOVE 

900 

02071 

1055 


TAD 

TEMP 

/PUT IT INTO AUTO XR'S 

901 

02072 

3013 


DCA 

X 13 


902 

02073 

1013 


TAD 

X 1 3 


903 

02074 

3011 


DCA 

Xtl 


904 

02075 

6201 

MOVSTL, 

CDF 



905 

02076 

1411 


TAO I 

XU 

/GET NEXT WORD OF ST 

906 

02077 

7402 

stfldm, 

HIT 



907 

02100 

3413 


DCA X 

X 1 3 

/STORE IT 

908 

02101 

2056 


XSZ 

TEMP2 


909 

02102 

5275 


JMP 

MOVSTL 


910 

02103 

4340 


JMS 

MOVFIN 

/MOVE F INI PAGE INTO 7000-7177 

911 

02104 

5772* 


JMP 

7000 

/GO READ BRTS.SV 

912 

02105 

0000 

CHKLBL, 

0 


/CHECK LABEL FOR UNDEF 

913 

02106 

1705 


TAD I 

CHKLBL 

/GET FIELD 

914 

02107 

3310 


DCA 

*♦1 


915 

02110 

7402 


HLT 



916 

02111 

1456 


TAD I 

TEMP2 

/GET FIRST WORD OF LABEL 

917 

02112 

7710 


SPA CLA 



918 

02113 

5705 


JMP I 

CHKLBL 

/SIGN BIT IS DEFINED 

919 

02114 

7144 


CLL CMA 

RAL 

/GET ADOR OF LINE NUM 

920 

02115 

1056 


TAD 

TEMP2 


921 

02116 

3104 


DCA 

XL ABEL 


922 

02117 

1504 


TAD X 

XL ABEL 

/GET HIGH ORDER LINE 

923 

02120 

3102 


DCA 

LINEN 


924 

02121 

2104 


XSZ 

XLABEL 


925 

02122 

1504 


TAD I 

XL ABEL 

/GET LOW ORDER 

926 

02123 

3103 


DCA 

LXNEL 


927 

02124 

6201 


CDF 



928 

02125 

4771* 


JMS 

ERMSG 

/PRINT MESSAGE 

929 

02126 

2523 


2523 
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930 

02127 

5705 

JMP 

i 

CHKLBL 

/RETURN 

931 

02130 

0000 

FREEP r 0 



/MAKE A CDF FROM FREEHI 

932 

02131 

1053 

TAD 


FREEHI 


933 

02132 

7106 

CLL 

RTL 



934 

02133 

7004 

RAL 




935 

02134 

1235 

TAD 


COFZER 


936 

02135 

5730 

JMP 

I 

PREEF 


937 

02136 

4340 

ABORTLr JMS 


MOVFIN 

/PUT FINI PAGE INTO 7000-7177 

936 






/AND ABORT THE RUN 

939 

02137 

5770 

JMP 

I 

(ABORT- 

FINI+7000 

940 

02140 

0000 

MOVFIN, 0 



/FINI PAGE MOVER 

941 

02141 

6201 

CDF 




942 

02142 

1367 

TAD 


(FINI-l 

/MOVE INT READING CODE 

943 

02143 

3010 

DCA 


X10 


944 

02144 

1366 

TAD 


(6777 

/INTO 7000 

945 

02145 

3011 

DCA 


XU 


946 

02146 

1365 

TAD 


(-200 


947 

02147 

3055 

DCA 


TEMP 

/PUT CORRECT COUNT HERE 

948 

02150 

1410 

TAD 

I 

X10 


949 

02151 

3411 

DCA 

I 

XU 

/MOVE CODE 

950 

02152 

2055 

ISZ 


TEMP 


951 

02153 

5350 

JMP 


.-3 


952 

02154 

5740 

JMP 

1 

MOVFIN 
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953 

02165 

7600 





954 

02166 

6777 





955 

02167 

2i77 





956 

02170 

7115 





95T 

02171 

1712 





958 

02172 

7000 





959 

02173 

1 S30 





960 

02174 

0010 





961 

02175 

6201 





962 

02176 

1536 





963 

02177 

2357 





964 


2200 


PAGE 



965 

02200 

1651 

FINI, 

TAD I 

XERMSG 

/ANY ERRORS ? 

966 

02201 

7640 


SZA CLA 



967 

02202 

5315 


JMP 

ABORT 

/YES, DON'T RUN IT 

968 

02203 

1250 


TAD 

XINT 

/MOVE INT STUFF 

969 

02204 

3301 


DCA 

FTEMP 


970 

02205 

1247 


TAD 

M12 

/10 KEY LOCATIONS 

971 

02206 

3303 


DCA 

FCNT 


972 

02207 

1253 


TAD 

XSAVE 

/INTO A SAFE PLACE 

973 

02210 

3302 


DCA 

FTEMP2 

974 

02211 

1701 


TAD I 

FTEMP 


975 

02212 

2301 


ISZ 

FTEMP 


976 

02213 

3702 


DCA I 

FTEMP2 


977 

02214 

2302 


I5Z 

FTEMP2 


978 

02215 

2303 


ISZ 

FCNT 


979 

02216 

5211 


JMP 

i*5 

/MOVE LOOP 

980 

02217 

1050 


TAD 

BRTS 

/READ IN BRTS 

981 

02220 

3224 


DCA 

BRTSB 


982 

02221 

4652 


JMS I 

X7607 


983 

02222 

3400 


BRT5JZ 



984 

02223 

0000 


0 



985 

02224 

0000 

BRTS8, 

0 



986 

02225 

5312 


JMP 

IOERR 


987 

02226 

1253 


TAD 

XSAVE 


988 

02227 

3301 


DCA 

FTEMP 


989 

02230 

1250 


TAD 

XINT 

/MOVE STUFF BACK 

990 

02231 

3302 


DCA 

FTEMP2 


991 

02232 

1247 


TAD 

Ml 2 


992 

02233 

3303 


DCA 

FCNT 


993 

02234 

1701 


TAD I 

FTEMP 


994 

02235 

2301 


ISZ 

FTEMP 


995 

02236 

3702 


DCA I 

FTEMP2 


996 

02237 

2302 


ISZ 

FTEMP2 


997 

02240 

2303 


ISZ 

FCNT 


998 

0.2 24 1 

5234 


JMP 

• -5 


999 

02242 

1377 


TAD 

(5561 

/PATCH *C LOCATIONS 

1000 

02243 

3776' 


DCA 

7600 


1001 

02244 

1377 


TAD 

(5561 


1002 

02245 

3775' 


DCA 

7605 


1003 

02246 

5774' 


JMP 

BRTBGN 

/GO START BRTS 

1004 

02247 

7766 

M12, 

*■12 

, 

1005 

02250 

0020 

xint, 

20 



1006 

02251 

1712 

XERMSG, 

ERMSG 



1007 

02252 

7607 

X7607, 

7607 
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1008 

02253 

7054 

XSAVE, 

7001+XSAVE-FINI 



1009 

02254 

0000 

MUL12, 

0 



/MULTIPLY 12BI T8 AND 24 BITS 

1010 

02255 

3100 


OCA 


AC3 

/SAVE 12 BIT THING 


1011 

02256 

3077 


OCA 


ACS 

/CLEAR REST OF AC 


1012 

02257 

3076 


OCA 


ACi 



1013 

02260 

1373 


TAD 


C«*15 

/ONLY TEST 12 BITS 


1014 

02261 

3101 


OCA 


SC 



1015 

02262 

5300 


JMP 


MULBGN 



1018 

02263 

7420 

MULLUP, 

SNL 



/WAS BIT ON ? 


1017 

02264 

5272 


JMP 


NOAOD 

/NO, DON'T ADD 


1018 

02265 

1065 


TAD 


SUBLO 

/ AOD TO HIGH ORDER 2/3'S 

OF AC 

1019 

02266 

1077 


TAD 


ACS 



1020 

02267 

3077 


OCA 


ACS 



1021 

02270 

7024 


CML 

RAL 




1022 

02271 

1064 


TAO 


SUBHI 



1023 

02272 

1076 

NOADD, 

TAO 


ACI 

/SHIFT AC RIGHT 


1024 

02273 

7110 


CLL 

RAR 




1025 

02274 

3076 


OCA 


ACI 



1026 

02275 

1077 


TAD 


ACS 



1027 

02276 

7010 


RAR 





1028 

022 77 

3077 


OCA 


ACS 



1029 

02300 

1100 

MULBGN, 

TAD 


AC3 



1030 

02301 

7010 

FTEMP, 

RAR 





1031 

02302 

3100 

PTEMP2* 

DC A 


AC3 



1032 

02303 

2101 

PCNT, 

ISZ 


SC 

/BUMP SHIFT COUNTER 


1033 

02304 

5263 


JMP 


MULLUP 



1034 

02305 

1077 


TAD 


ACS 

/ANSWER IS LOWER 2/3'S OF 

AC 

1035 

02306 

3064 


DCA 


SUBHI 



1036 

02307 

1100 


TAD 


AC3 



1037 

02310 

3065 


DCA 


SUBLO 



1038 

02311 

5654 


JMP 

I 

MUL13 



1039 

02312 

3103 

IOERR , 

DCA 


LINEL 

/ZERO LINE NUMBER 


1040 

02313 

4651 


JMS 

I 

XERMSG 

/PRINT MESSAGE 


1041 

02314 

LH7 


1117 





1042 

02315 

4772 * 

ABORT, 

JMS 


SWAP 

/SWAP 0S8 BACK 


1043 

02316 

6041 


TSF 



/WAIT FOR TTY DONE 


1044 

02317 

5316 


JMP 


• "1 

/TO PREVENT 038 , FROM BEING RUINED 

1045 

02320 

1371 


TAD 


(420 v 7 

/RESTORE LOCATIONS 


1046 

02321 

3776* 


DCA 


7600 



1047 

02322 

1370 


TAD 


(621 3 



1048 

02323 

3775* 


DCA 


7605 



1049 

02324 

1052 


TAD 


ABORTX 

/CALLED VIA CHAIN ?(FROM 

EDIT) 

1050 

02325 

7450 


SNA 





1051 

02326 

5775* 


JMP 


7605 

/NO, RETURN TO 0S6 


1052 

02327 

3333 


DCA 


EDTBLK 

/YES, SAVE EDITOR START 


1053 

02330 

4652 


JMS 

I 

X7607 

/READ IN EDITOR 


1054 

02331 

1600 


EDTSIZ 


/THIS MUCH 


1055 

02332 

0000 


0 





1056 



OWTEMP, 






1057 

02333 

0000 

EDTBLK, 

0 





1058 

02334 

5775* 


JMP 


7605 

/ERROR 


1059 

02335 

5767' 


JMP 


EDTBGN 

/GO START EDITOR 


1060 

02336 

0000 

OUTWRD, 

0 



/OUTPUT WORD TO TEMP FILE 


1061 

02337 

2075 


ISZ 


OCQUNT 

/ANY ROOM ? 


1062 

02340 

5351 


JMP 


NOWRIT 

/YES 
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1063 

02341 

3333 


DCA 


OWTEMP 

/SAVE WORD 

1064 

02342 

4357 


%JMS 


OUDUMP 

/WRITE BLOCK 

1065 

02343 

2363 


ISZ 


OUBLOK 

/BUMP BLOCK NUMBER 

1066 

02344 

1362 


TAD 


GLBLOK- 

1/RESET BUFFET POINTER 

1067 

02345 

3356 


OCA 


QUPTR 


1068 

02348 

1366 


TAD 


(•400 


1069 

02347 

3075 


OCA 


OCOUNT 

/AND COUNT 

1070 

02350 

1333 


TAO 


OWTEMP 

/RESTORE AC 

1071 

02351 

6211 

NOWRIT » 

CDF 


10 


1072 

02352 

3756 


DCA 

I 

OUPTR 

/INTO BUFFER 

1073 

•02353 

6201 


CDF 




1074 

02354 

2356 


ISZ 


OUPTR 


1075 

02355 

5736 


JMP 

I 

OUTWRD 


1076 

02356 

0000 

OUPTR, 

0 




1077 

02357 

0000 

OUDUMP , 

0 



/WRITE BLOCK 

1078 

02360 

4652 


4MS 

I 

*7607 

/WRITE BLOCK 

1079 

02361 

4210 


4210 



1080 

02362 

0000 


0 




1081 

02363 

0000 

OUBLOK, 

0 




1082 

02364 

5312 


JMP 


IQERR 


1083 

02365 

5757 


JMP 

I 

OUDUMP 


1084 


2400 


ENO»FINI+200 


1085 

02366 

7400 






1086 

02367 

3012 






1087 

02370 

6213 






1088 

02371 

4207 






1089 

02372 

0461 






1090 

02373 

7763 






1091 

02374 

0200 






1092 

02375 

7605 






1093 

02376 

7600 






1094 

02377 

5561 






1095 




s 
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LOAQER 
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ABORT 

2315 

ICQUNT 

0074 

P2 

1062 

TTY 

1740 

ABORTL 

2136 

INBLOK 

1536 

P3 

1137 

VARCNT 

0040 

ABORT* 

0052 

INPTR 

1550 

P4 

1154 

VERSON 

0100 

ACNT 

0042 

INWORD 

1530 

P5 

1254 

WORD! 

0060 

AC 1 

0076 

IOERR 

23ia 

P6 

0632 

W0RD2 

0061 

AC2 

0077 

LBlflD 

1654 

P7 

0646 

W0R03 

0062 

AC3 

0100 

CEAD0 

0726 

P8 

1312 

XERMSG 

2251 

ALLOCA 

1400 

LFLO 

1057 

P9 

1314 

XINT 

2250 

ALLOCS 

1460 

UINEH 

0102 

RELCIT 

1600 

XL ABEL 

0104 

ARAYST 

2132 

linel 

0103 

RELOOP 

1632 

XSAVE 

2253 

ASVLUP 

0614 

litrl 

2562 

RELOUT 

1704 

X10 

0010 

BLOCK 

0046 

LOADER 

0400 

RESADR 

0107 

Xll 

0011 

BRTBGN 

0200 

LOADIT 

2000 

SACNT 

0043 

X 1 3 

0013 

BRT8 

0050 

LOCHI 

0070 

SARYST 

2332 

X7607 

2252 

BRTSB 

2224 

LOCLO 

0071 

SASTAD 

0024 



BRTSIZ 

3400 

LOCTRH 

0044 

SC 

0101 



CDFZER 

2035 

LOCTRL 

0045 

SFLD 

1161 



CDF0 

1664 

LODLUP 

2025 

slflo 

1162 



CF 

2033 

L6221 

0476 

SLITRL 

2564 



CHKLBL 

2105 

L7600 

0477 

SLIT2 

1200 



clearf 

2061 

MORCLR 

2054 

SLLOOP 

1144 



clrend 

0106 

MOVFXN 

2140 

SPACE 

0717 



clrflo 

0105 

MOVSL 

1246 

S5TADR 

0023 



CLRLUP 

2044 

HOVSTL 

2075 

STACK 

0015 



CODB 

0072 

MULBGN 

2300 

STACKA 

7120 



CODBGN 

0026 

MULLUP 

2263 

STCOF 

0020 



CODCOF 

0025 

MUL12 

2254 

STEMPF 

0643 



CODF 

0073 

M12 

2247 

STEMPS 

2560 



C0D3Z1 

0066 

nastad 

0022 

STFLDM 

2077 



CODSZ2 

0067 

nchars 

0063 

STMLUP 

0636 



DATAFl 

1320 

NLLOOP 

1052 

STSTUF 

1000 



DATAF2 

1326 

NOADD 

2272 

SUB 

0731 



OATLST 

2566 

nodata 

0600 

SUBHX 

0064 



DATLUP 

1306 

nofjmp 

2032 

SUBLO 

0065 



OATMOV 

1323 

NONL 

mi 

SVARST 

1036 



OATPTR 

0030 

NOPATC 

0433 

SVCNT 

0041 



DATTOP 

0027 

NOREAD 

1545 

SVSTOR 

0660 



OCB 

7760 

NOREIC 

1703 

SWAP 

0461 



DLSXZE 

0051 

nosl 

1257 

swpfla 

0514 



DOARAY 

1407 

N0T08E 

0450 

SWPF1 

0536 



OONCLR 

2064 

NOWRIT 

2351 

SWPF2 

0545 



OOSARY 

1467 

NOZERO 

0724 

SWPINF 

0031 



EOTBGN 

3012 

nstaqr 

0021 

SWPRET 

0511 



EDTBLK 

2333 

OCOUNT 

0075 

SWPSUB 

0515 



EDTSIZ 

1600 

ONLY! 

1437 

swpi 

0534 



END 

2400 

OUBLOK 

2363 

SWP2 

0547 



ERMSG 

1712 

OUDUMP 

2357 

TD8ESY 

0472 



FCNT 

2303 

QUPTR 

2356 

TEMP 

0055 



FINI 

2200 

outwrd 

2336 

TEMP2 

0056 



FREEF 

2130 

OWTEMP 

2333 

TEMP3 

0057 



FREEHX 

0053 

patlst 

1344 

TXMES3 

1442 



FREELO 

0054 

PATLUP 

0424 

TMQATA 

1332 



FTEMP 

2301 

PRNTSN 

0710 

TMSLIT 

1337 



FTEMP2 

2302 

PSN 

0704 

TOOBIG 

074b 



HXFLD 

0047 

PI 

1045 

T TX 

0753 




ERRORS DETECTED: B 

1096 

LINKS GENERATED* 68 

1097 




ABORT 

939 

967 

1042# 





ABORTL 

321 

571 

576 

937# 




ABORTX 

43# 

44 

1049 





ACNT 

35# 

36 

361 

364 

423 

598 

644 

AC1 

63# 

64 

1012 

1023 

1025 



AC2 

64# 

65 

1011 

1019 

1020 

1026 

1028 

ACS 

65# 

66 

1010 

1029 

1031 

1036 


ALLQCA 

247 

598# 






ALLOCS 

600 

646# 






ARAYST 

74# 

601 






ASVLUP 

227# 

239 






BLOCK 

39# 

40 

734 

736 

853 



BRTBGN 

83# 

1003 






BRTS 

41# 

42 

980 





BRTSB 

981 

985# 






BRTSIZ 

84# 

983 






CDFZER 

872# 

935 






COF0 

752 

768# 







CF 

863 

866 

868 

870# 

877 






chklbl 

759 

912# 

913 

918 

930 






CLEARF 

878 

884 

888 

889 

891 

892# 

895 




clpend 

71# 

72 

221 

879 







CLRFLD 

70# 

71 

218 

883 







clrlup 

879# 

894 









COOB 

59# 

60 









CODBGN 

29# 

30 

724 

767 

851 






COOCDF 

28# 

29 

726 

771 

857 

861 

862 




COOF 

60# 

61 









CODSZ1 

55# 

56 

729 

778 

785 

846 

873 




C0D8Z2 

56# 

57 

733 

780 

787 

850 

875 




OATAF1 

552 

553 

557# 








DATAP2 

554 

563# 









datlst 

79# 

544 









DATLUP 

547# 

566 









DATMOV 

560# 

565 









OATPTR 

31# 

32 

527 

541 







OATTOP 

30# 

31 

525 

526 







DCB 

85# 

115 









OLS1ZE 

42# 

43 

528 








OOARAY 

605# 

645 









OONCLR 

886 

895# 









OOSARY 

653# 

684 









EDTBGN 

81# 

1059 









edtblk 

1052 

1057# 









EDTSXZ 

82# 

1054 









END 

498 

537 

1084# 








ERIiSG 

99 

319 

569 

574 

790# 

792 

797 

799 

811 

928 


1006 










FCNT 

971 

978 

992 

997 

1032# 






FINI 

939 

942 

965# 

1008 

1084 






FREEF 

129 

216 

277 

369 

505 

637 

674 

931# 

936 


FREEHI 

44# 

45 

88 

312 

313 

314 

725 

932 



FREELO 

45# 

46 

90 

125 

219 

222 

275 

307 

308 

350 


374 

375 

376 

379 

413 

426 

427 

428 

433 

434 


435 

440 

441 

442 

493 

494 

497 

501 

510 

524 


532 

533 

536 

540 

542 

635 

672 

723 



FTEMP 

969 

974 

975 

988 

993 

994 

1030# 




FTEMP2 

973 

976 

977 

990 

995 

996 

1031# 




HIFLO 

40# 

41 

87 

102 








ICOUNT 

61# 

62 

687 

698 

IN0LQK 

692# 

694 

695 

737 

INPTR 

696 

699 

700 

702# 

INWORD 

686# 

701 

742 

757 

IOERR 

693 

986 

1039# 

1082 

LBLFLD 

753 

760# 



LEAO0 

298 

301# 



LFLO 

388 

397# 

401 


lineh 

67# 

68 

92 

317 

linel 

68# 

69 

93 

318 

litrl 

77# 

78 

387 

389 

LOADER 

87# 




LOADIT 

789 

843# 



LOCNI 

57# 

58 

763 

772 

LOCLO 

56# 

59 

769 

781 

LOCTRH 

37# 

38 

720 

731 

LOCTRL 

38# 

19 

716 

727 

LODLUP 

664# 

874 

876 


L6221 

149# 

196 



L7600 

150# 

173 



MORCLR 

882 

887# 



MOVFJN 

910 

937 

940# 

952 

MOVSL 

515# 

520 



MOVSTL 

904# 

909 



MULBGN 

1015 

1029# 



MULLUP 

1016# 

1033 



MUL12 

627 

633 

670 

1009# 

M12 

970 

991 

1004# 


NASTAD 

25# 

26 

429 

603 

NCHARS 

52# 

53 

461 

477 

NLLOOP 

392# 

422 



NO ADO 

1017 

1023# 



NODATA 

215# 

530 

549 


NOFJMP 

865 

869# 



nonl 

394 

423# 



NOPATC 

104 

114# 



NOREAD 

688 

699# 



NORELC 

748 

783# 



NOSL 

452 

524# 



notdbe 

123 

127# 



NQWRIT 

1062 

1071# 



NOZERO 

295 

299# 



NSTADR 

24# 

25 

378 


OCOUNT 

62# 

63 

739 

1061 

ONLY 1 

625 

829# 



ou&lq* 

735 

1065 

1066 

1081# 


OUOliMP B«3 1064 1077# 1083 

OgPTR 1067 1072 1074 1076# 

OUTWSO 777 784 1060# 1075 

OW TEMP 1056# 1063 1070 


PATLST 

105 

577# 

PATLUP 

107# 

113 

PRNT5N 

287# 

302 

PSN 

283# 

303 

PI 

387# 

577 

P2 

400# 

578 

P3 

445# 

579 

P 4 

458# 

580 

P5 

521# 

381 

p 6 — 

241# 

382 


804 


80b 


Ml 

854 


856 


869 


568 572 803 923 

567 573 805 926 1039 


848 

844 


1038 

487 507 512 




PB 

P9 


RELCIT 

RELOOP 

RELOUT 

RESAOR 

SACNT 

8 ARV8T 

SASTAO 

SC 

SPUD 

SLFLD 

8 LITRL 

SLIT2 

8 LLOOP 

SPACE 

88TA0R 

STACK 

STACKA 

STCOP 

STEMPP 

STEMPS 

STPLDM 

STMLUP 

STSTUF 

SUS 

SUBHI 

SUBLO 

SVARST 

SVCNT 

SVSTOR 

SWAP 

SWPPIA 

SWPF1 

SWPF2 

SWPINF 

SWPRET 

SWPSUB 

SWPl 

SWP2 

T08ESY 

TEMP 


TEMP2 


TEMP3 

TIMES3 

TMDATA 

TMSLIT 

TOOBIG 

TTK 

TTY 

VARCNT 


253# 

583 




551# 

5B4 




553# 

585 




648 

665 

716# 



742# 

766 

788 



784# 





72# 

352 

898 



36# 

37 

365 

366 

437 

75# 

649 




27# 

26 

443 

651 


66# 

67 

1014 

1032 


455 

463# 

465 

515 


446 

464# 

522 



78# 

79 

445 

447 


462 

477# 




450# 

523 




294# 

800 




26# 

27 

267 

436 

485 

22# 

94 




80# 

96 




23# 

24 

370 



242 

250# 

254 



76# 

77 

241 

243 


896 

906# 




245# 

262 




109 

135 

350# 



274 

304# 

316 

634 

671 

53# 

54 

273 

310 

620 

54# 

55 

272 

305 

619 

73# 

223 




34# 

35 

357 

360 

430 

237 

261 

263# 

282 


134 

136# 

144 

159 

162 

133 

163# 

175 

178 


130 

131 

152 

154 

181# 

132 

177 

188# 

194 


32# 

91 

128 

138 


160# 

161 




141 

145 

148 

164# 

165 

166 

167 

179# 

185 


168 

190# 




140 

145# 




46# 

47 

110 

112 

171 

238 

245 

252 

392 

399 

559 

564 

607 

623 

743 

783 

652 

864 

871 

880 

950 





47# 

48 

174 

180 

184 

264 

266 

409 

410 

412 

639 

662 

667 

676 

758 

916 

920 




48# 

49 

233 

260 

269 

491 

519 

617 

618 

629 

628 

632# 




535 

539 

567# 



496 

500 

572# 



317# 





322# 

327 

808 

810 

818 

296 

300 

796 

798 

801 

33# 

34 

353 

356 

371 



646 663 


722 

665 721 1022 1035 

631 664 718 1018 1037 

432 

IBB 1042 
197 


169 

170 

172 

187 

198 

182 

183 

189 

192 

226 

450 

457 

550 

555 

558 

745 

749 

754 

756 

776 

687 

893 

897 

900 

947 

191 

193 

229 

234 

257 

459 

521 

612 

626 

630 

761 

764 

765 

899 

908 

279 

481 

482 

484 

490 

641 

658 

663 

679 



802 

812# 819 

373 

38 a 



290 291 405 418 


921 

922 

924 

925 



228 

230 

249 

251 

253 

255 

383 

396 

398 

400 

402 

404 

458 

460 

480 

516 

545 

547 

606 

608 

613 

643 

650 

654 

948 






281 

414 

417 

419 

421 

486 

518 

604 

636 

638 

640 

642 

680 

903 

905 

945 

949 


902 

907 








*1.1765 

762 

*L1767 

755 

*11770 

750 

*1.1771 

746 

*L1772 

744 

*U77« 

738 

*1.21*5 

946 

*12166 

944 

*12187 

942 

*12170 

939 

*L217« 

867 

*L2175 

860 

*12368 

1068 

*(.2370 

1047 

*1.2371 

1045 

*1.2373 

1013 

*1.2377 

999 


890 


1001 
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/OS/8 BASIC RUNTIME SYSTEM 

/ 

/dec-ss-lbasa-a-la 

/ 

/COPYRIGHT, H72 
/ 

/DIGITAL EQUIPMENT CORPORATION 
/MAYNARD, MASSACHUSETTS 01754 
/ 

/AUGUST 19, 1972 

/ 

/R.G. BEAN 


/ADDRESS OF START OF 5 PAGE OVERLAY BUFFER 
3400 QVERLAY»3400 


/ASSEMBLY INSTRUCTIONS 

/WHEN ASSEMBLED AND LOAOED VIA THE ABS. LOADER, THE 
/CORE LAYOUT IS AS FOLLOWS! 

/ 

/BRTS IS AT 0-8777 

/OVERLAY BASIC. AF IS AT 3400-4577 « * „ 

/OVERLAY BASIC. SF IA AT 12000-13177 ^ 

/OVERLAY BASIC. FF IS AT 13400-14577©-/ > 

/ 

/TO create save image files prior to running basic, 

/ASSEMBLE THIS SOURCE IN a 1 2K OR MORE MACHINE, THEN 
/PERFORM THE FOLLOWING SEQUENCE OF OS/8 COMMANOS 
/ 

/ , R ABSLOR 

/•BRTSS (*BRTS,EAEOVR$ IF YOU WISH TQ USE ON E AE MACHINE) 

/.SAVE SYS I BRTS 0-8777 
/ 

/.SAVE SYSSBASIC.AF 3400-4577^ 

/ 

/.SAVE SYSlBASIC.SF 12000-13177 
/ / 

/.SAVE SYSlBASIC.FF 13400-14577 

/ 

/THE BASIC RUN-TIME SYSTEM IS CONDIT IONALIZED TO TAKE ADVANTAGE 
/OF THE PDP-6/E KEB/E EAE OPTION, 

/NORMALLY, THE SYSTEM IS ASSEMBLED SUCH THAT IT WILL HUN ON ANY 
/P DP-8 OR PDP-12. TO TAKE ADVANTAGE OF THE ADDITIONAL HARDWARE, SET 
/THE SWITCH E AE* 1 IF THE SYSTEM INCLUOtS A KE8/E EAE. 

/THE RESULTING BINARY IS THEN LOADED OVER THE NORMAL SYSTEM 
/BINARY AS AN OVERLAY USING THE ABS LO AOER , ANO THE MODIFIED SYSTEM 
/IS SAVED. IN OTHER WOROS,TO CREATE A NON-EAE SYSTEM, ASSEMBLE THIS 
/SOUKCb ONCE, WITH fcAE*0, AND PERFORM THE SAVE OPERATIONS ABOVE ON THE 
/BINARY THAT RESULTS. TO CREATE AN EAE SYSTEM , ASSEMBLE THIS SOURCE 
/TWICE, ONCE WITH EAE*0 AND ONCE WITH EAE*1. USE THE ABSOLUTE LOADER 
/TO LOAD BOTH RESULTING BINARIES (THE EAE BINARY MUST BE LQAOFl) 


/OS/8 BASIC RUNTIME SYSTEM 


PALB-V7 10/24/72 PAGE t-1 


/AFTER THE NORMAL BINARY), THEN PERFORM THE SAVE 
/OPERATIONS ON THE RESULT, 


/EAE*0 

/EAE»i 


/USE STANOARD FLOATING POINT PACKAGE 
/ASSEMBLE EAE OVERLAY 


/OS/8 BASIC RUNTIME SYSTEM 
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IFNZRO EAE < 
NOPUNCH 


/ 




/PAG E 0 

LOCATIONS 




0003 


*3 



00003 

0000 

TEMPU# 

0 



00004 

0000 

TEMP15, 

0 

/TEMPS USED BY CHARACTER UNPACKING ROUTINES 

00005 

6361 

NUMCQM, 

NUMCOL 

/LINK TO 12 BIT COMPARE ROUTINE 


00006 

0000 

USECON, 

0 

/USE CONSTANT GENERATED BY "USE" 

STATEMENT 

00007 

0000 

TEMP2, 

0 




0010 


*10 



0001 0 

0000 

XR0i 

0 



00011 

0000 

XR1, 

0 



00012 

0000 

XR2 » 

0 



00013 

0000 

XR3| 

0 



00014 

0000 

XR4 9 

0 

/INDEX REGISTERS 




XR5, 




00015 

0000 

BABSp 

0 

/USED BY ABSOLATE VALUE COMPARING 

ROUTINE 

00016 

0000 

DLPTR# 

0 

/POINTER FOR IN-CORE DATA LIST 


00017 

2713 

SPINNR § 

2713 

/AT RUNTIME. THIS LOCATION IS SPUN 

FOR RND SEED 


0020 


*20 




/COMPILER" INTERPRETER CONTROL BLOCK. LOCATIONS MARKED BY 

/A ** ARE EXPECTED TO CONTAIN VALUES SUPPLIED BY THE COMPILER PRIOR 

/TO THE BRTS LOAD 


00020 

6211 

CDFIO, 

6211 

/** 

/CDF FOR 

I/C 

1 table 

AND SYMBOL TABLES 

00021 

0000 

5CSTRT 9 

0 

/** 

/POINTER 

TO 

START 

OF SCALAR SYMBOL TABLE 

00022 

0000 

ARSTRT § 

0 

/** 

/POINTER 

TO 

START 

OF ARRAY SYMBOL TABLE-1 

00023 

0000 

STSTRT t 

0 

/** 

/POINTER 

TO 

START 

OF STRING SYMBOL TABLE-1 

00024 

0000 

SASTRT 9 

0 

/** 

/POINTER 

TO 

START 

OF STRING ARRAY TABLE-1 

00025 

0000 

GOFFS, 

0 

/** 

/CDF FOR 

START OF 

PSEUOO-COOE 

00026 

0000 

PSSTRT , 

0 

/** 

/POINTER 

TO 

START 

OF PSEUDO CODE-1 

00027 

0000 

DLSTOP, 

0 

/** 

/POINTER 

TO 

TOP OF 

DATA LIST 

00030 

0000 

DLSTNT, 

0 

/** 

/POINTER 

TO 

BOTTOM 

OF INCORE OATA LIST-1 


/OS/8 

BASIC 

RUNTIME 

SYSTEM 



/SYSTEM 

REGISTERS 

00031 

0000 

psflag, 

0 

00032 

0000 

strlen, 

0 

00033 

0000 

Si, 

0 

00034 

0000 

S2 , 

0 

00035 

0000 

DMAP, 

0 

00036 

0000 

BMAP , 

0 


0037 


*37 
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/IF BIT 0 ON, T08/E PG2 MOVED 

/IF BIT 11 ON,PG 17600 HAS BEEN MOVED 

/LENGTH OF STRING IN SAC 

/SUBSCRIPT 1 (MUST BE FOLLOWED BY 321) 

/SUBSCRIPT 2 (MUST BE PRECEEDEQ BY Sll) 

/MAP OF DRIVER PAGES 

/MAP OF FILE BUFFERS 


/FLOATING POINT PACKAGE LOCATIONS. THE FOLLOWING 21 LOCATIONS ARE USED 
/FOR VARIOUS PURPOSES BY THE FLOATING POINT PACKAGE, THOSE WITH DOUBLE 
/LABELS ARE USED BY BRTS AS TEMPORARIES WHEN NOT CALLING THE PACKAGE, 
/THE SECOND TAG IS THE ONE USED BY THE FLOATING POINT PACKAGE, THE FIRST 
/IS USEO BY BRTS. 


00037 

0000 

FF, 

TEMPI, 

0 

/SPECIAL MODE FLIP-FLOP 

00040 

0000 

AC0, 

0 


00041 

0000 

AC1, 

TEMP3, 

0 


00042 

0000 

AC2, 

TM, 

0 


00043 

6201 

TEMP4, 

EXP, 

6201 


00044 

0000 

ACX, 

HORD, 

0 

/FAC-EXPONENT 

0004S 

0000 

ACH, 

LORD,' 

ACLO, 

0 

/FAC-HIGH ORDER MANTISSA 

00046 

0000 

ACL. 

TEMPS, 

0 

/FAC-MANTISSA low 

00047 

0000 

OPX, 

TEMPS, 

0 


00050 

0000 

OPH, 

TEMPT, 

0 


00051 

0000 

OPL, 

0 


00052 

0000 

DSWIT, 

0 

/SWITCH USED BY INPUT ROUTINE 

00053 

0215 

CHAR, 

K215, 

215 

/TERMINATOR OF LAST INPUT 

00054 

0215 

SWIT1, 

M215, 

215 

/•0 FOR NO LP AFTER CR ON INPUT 

00055 

7563 

SWIT2, 

*215 

/■0 FOR NO CR/LF AFTER OUTPUT 

00056 

7777 

EFLG, 

7777 

/0«E format 

00057 

0024 

FLOW, 

24 

/FIELD WIDTH OF OUTPUT 

00060 

0012 

DADP, 

12 

/#OF PLACES AFTER DEC. PT 

00061 

0000 

TEMP10, 

0 

/LOC NEEDED BY FPP 

00062 

0000 

TEMPI!, 

0 

/LOC NEEDED BY FPP 


/OS/8 BASIC RUNTIME SYSTEM 
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/SYSTEM REGISTERS USED OFTEN BY interpreter CODE 


00063 

0000 

MOOESWi 

0 

00064 

0000 

INSAV, 

0 

00065 

0000 

LINEHI, 

0 

00066 

0000 

LINELO, 

0 

00067 

0452 

GSP # 

GSTCKM 

00070 

0000 

STRMAX, 

0 

00071 

0000 

STRCNT, 

0 

00072 

0000 

5TRPTR, 

0 


00073 

0010 

/OFT USED CONSTANTS 
K0010, 0010 

00074 

0017 

K0017, 

0017 

00075 

0077 

K0077, 

0077 

00076 

0100 

K0 1 00 | 

100 

00077 

0200 

USRi 

K0200I 

0200 

00100 

0077 

0340 

K0340, 

K200IK0200 

0340 

00101 

0377 

K0377 , 

0377 

00102 

0400 

K0400# 

0400 

00103 

7400 

K7400, 

7400 

00104 

7700 

K7700, 

7700 

00105 

7477 

K7477, 

7477 

00106 

7740 

KM40, 

-40 

00107 

7764 

M 1 4 # 

• 14 


/0 FOR ARTHIMETIC MODE*l FOR STRING MOOF 
/CURRENT PSEUDO-INSTRUCTION BEING EXECUTED 
/HI ORDER BITS OF LINE * CURRENTLY BEING EXECUTED 
/LOW ORDER BITS OF CURRENT LINE NUMBER 
/POINTER INTO G0SU6 STACK 

/MAXIMUM * OF CHARS ALLOWED IN CURRENT STRING 
/- • OF CHARACTERS IN CURRENT STRING 
/POINTER TO CURRENT OPERAND STRING 


/OS/8 BASIC RUNTIME SYSTEM PAL8-V7 10/24/72 PAGE 5 

/OFT USED LINKS 


00110 

1034 

PRINT, 

XPRINT 

/LINK FOR TTY DRIVER HOOKS 

00111 

0320 

SACPTR i 

SAC-1 

/POINTER TO STRING ACCUMULATOR 

00112 

3253 

PUTCHL# 

PUTCH 

/LINK TO FILE BUFFER STUFFING ROUTINE 

00113 

0212 

ILOOPl, 

ILOOP 

/POINTER TO START OF ILOOP 

00114 

IMS 

INTL» 

UNSFIX 

/LINK TO UNSIGNED 12-BIT INTEGER FIX 

00115 

0206 

CDFPSL» 

CDFPSU 

/POINTER TO PSEUDO-CODE CDF 

00116 

1460 

ERROR, 

ERRDIS 

/ERROR ROUTINE DISPATCH 

00117 

6525 

FBITS, 

FBITGT 

/ROUTINE TO ISOLATE FUNCTION BITS FROM INST 

00120 

0200 

PWFECL, 

PWFECH 

/ROUTINE TO GET NEXT WORD FROM PSEUDO-CODE STREAM 

00121 

2260 

MPYLNK, 

MPY 

/LINK TO 12 BY 12 BIT MULTIPLY 

00122 

1000 

XPUT, 

XPUTCH 

/ROUTINE TO PUT CHAR IN TTY RING BUFFER 

00123 

2304 

FIDLE* 

idle 

/LINK TO FILE IDLE CHECK ROUTINE 

00124 

0537 

devcal, 

DRCALL 

/LINK TO DEVICE DRIVER CALLING ROUTINE 

00125 

3023 

WRITFW, 

WRITFL 

/ROUTINE TO WRITE 1 WORD IN FILE BUFFER 

00126 

2636 

STHINL# 

STHINI 

/LINK TO STH INITIALIZER 

00127 

2676 

ldhinl, 

LDHINI 

/LINK TO LDH INITIALIZE 

00130 

2600 

STH, 

STHL 

/STORE HALF ROUTINE 

00131 

2646 

LOH, 

LDHL 

/LOAD HALF ROUTINE 

00132 

3371 

FACSALi 

FAC5AV 

/ROUTINE TO SAVE FAC IN TEMPOARARY 

00133 

2373 

facrel* 

FACRES 

/ROUTINE TO RESTORE FAC FROM TEMPORARY 

00134 

6241 

FGETl, 

FF GET 

/LINK TO FPP GET ROUTINE 

00135 

6256 

FPUTL, 

FFPUT 

/LINK TO FPP PUT ROUTINE 

00136 

6215 

FNORL, 

ffnor 

/LINK TO FPP NORMALIZE ROUTINE 

00137 

0365 

FCLR, 

FAGCLR 

/ROUTINE TO ZERO FAC 

00140 

6135 

FNEGL, 

FFNEG 

/LINK TO FPP NEGATE ROUTINE 

00141 

4533 

FLOATLj 

FFlOAT 

/LINK TO FPP FLOAT ROUTINE 

00142 

3126 

GETCHL, 

GETCH 

/LINK FOR ASCII CHAR GET ROUTINE 

00143 

2252 

EOFSEL, 

EOFSET 

/ROUTINE TO SET EOF BIT 

00144 

2240 

BSWLf 

BSWP 

/LINK FOR BYTE SWAP ROUTINE 

00145 

2735 

PACKL, 

PACKCH 

/ROUTINE TO PACK ASCII, 3 FOR 2 

00146 

3016 

CNQCLLr 

CNOCUR 

/ROUTINE TO INITAILIZE CHAR # TO 1 

00147 

2706 

BUFCHLf 

BUFCHK 

/CHECK STATUS OF BUFFER POINTER 

00150 

6566 

FTYPL, 

FTYPE 

/ROUTINE TO DETERMINE FILE TYPE 

00151 

6661 

CHRNOL, 

CHARNO 

/ROUTINE TO DETERMINE CHARATER NUMBER 

00152 

3302 

nexrel » 

NEXREC 

/ROUTINE TO FILL BUFFER WITH NEXT RECORD 

00153 

2347 

CRLF, 

CRLFR 

/ROUTINE TO PRINT CR , LF 

00154 

3503 

VALLK, 

VALGET 

/ROUTINE USED BY FINPUT TO FETCH CHARS DURING VAL$ FUNCTION 

00155 

5364 

PATCHP, 

PATCHF 

/LINK TO FPP SPECIAL MODE PATCH 

00156 

1230 

PI SWAP, 

PSWAP — 

/ROUTINE TO SWAP HI CORE AND PAGE 17600 

00157 

0567 

LDHRST, 

PRESET 

/ROUTINE TO RESET LPH TO FIELD 0 

00160 

0771 

STHRST, 

SRESET 

/ROUTINE TO RESET STH TO FIELD 0 

00161 

0563 

FSTOP1, 

FSTOPI 

/LINK FOR "C HOOKS IN DRIVERS 


/******* THE ABOVE LINK MUST BE AT 161 ******* 
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/I/O TABLE POINTER AREA-THIS BLOCK HOLDS POINTERS TO THE I/O TABLE 
/ENTRY FOR THE CURRENT FILE. THE POINTERS ARE CHANGED EVERY TIME AN 

E *^UTED, A TAD I OFF ONE OF THE POINTERS WILL GET THE INFORMATION 
/NOTED IN THE COMMENT FOR THE CURRENT I/O DEVICE 
/THIS BLOCK IS INITIALIZED FOR TTY 


00162 

0000 

ENTNQ, 

0 

00163 

6677 

WORO0I 

TTYF 

00164 

6700 

WORD!, 

TTYF*1 

00165 

6701 

WORD*, 

TTYF*2 

00166 

6702 

WORD3 , 

TTYF+3 

00167 

6703 

W0R04, 

TTYF«-4 

00170 

6704 

W0R05, 

TTYF+5 

00171 

6705 

WORDS, 

TTYFA6 

00172 

6706 

WORD7, 

TTYF+7 

00173 

6707 

WORD10, 

TTYF*10 

00174 

6710 

WORDU, 

TTYFm 

00175 

67U 

W0RD12, 

TTYFM2 

00176 

6712 

W0R013# 

TTYF+13 

00177 

6713 

W0RD14, 

TTYFM4 


/ENTRY NUMBER NOW IN AREA 
/HEADER WORD 
/BUFFER ADDRESS 
/CURRENT BLOCK IN BUFFER 
/READVWRITE POINTER 
/HANOLER ENTRY POINT 
/FILE STARTING BLOCK # 

/ACTUAL FILE LENGTH 

/ DEVICE / (FILE MAXIMUM LENGTH) 

/ NAME / (POSITION OF PRINT HEAO) 

/ FILE 

/ NAME 

/ 
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/BRTS MAINLINe-THIS IS THE INTERPRETER INSTRUCTION LOOP, IT IS IN THIS 
/LOOP THAT THE NEXT INSTRUCTION IS FETCHED , DECODED , AND USED AS A DISPATCH 
/TO THE PROPER EXECUTION ROUTINES FOR THAT INSTRUCTION, 


0200 *200 

/SUBROUTINE PWFECH-RETURNS WITH NEXT WORD FROM PSEUDO-COOE STREAM IN AC 


00200 

5606 

PWFECH, 

JMP 

1 CDFPSU 

00201 

2302 


isz 

INTPC 

00202 

5206 


JMP CDFPSU 

00203 

1206 


TAD 

CDFPSU 

00204 

1073 


TAD 

K0010 

00205 

3206 


OCA 

CDFPSU 

00206 

0321 

CDFPSU, 

STARTl 

00207 

1702 


TAD 

I INTPC 

00210 

6201 


CDF 

0 

00211 

5600 


JMP 

I PWFECH 


/START ONCE ONLY CODE IN TTY BUFFER 
/BUMP PSEUDO-COOE PROGRAM COUNTER 
✓NO-SKIPjJUST GET NEXT PSEUDO-CODE WORD 
/SKIP MEANS WE HAVE TO INCREMENT PS-CODE FIELO 


/SET OF TO FIELD OF PSEUDO-CODE 
✓GET NEXT WORD OF CODE 

/SET DATA FIELD BACK TO INTERPRETER FIELD 
✓RETURN 


✓ **•**• t****************************************************,,. 
✓BRTS I-LOOP 


00212 

7300 

ILOOP, 

CLA 

CLL 

00213 

3037 


OCA 

FF 

00214 

00215 

00216 

4200 

3064 

4510 


JMS 

OCA 

JMS 

PWFECH 

r^ffiNT 

00217 

7000 


NOP 

00220 

1064 


TAD 

INSAV 

00221 

0103 


AND 

K7400 / 

00222 

7106 


CLL 

RTL 

00223 

7006 


rtl 


00224 

7004 


ral 


00225 

1250 


TAD 

KM10 

00226 

7500 


sma 


00227 

5243 


JMP SCASE 

00230 

3040 


DC A 

TEMPI 

00231 

1063 


TAD 

MODESW 

00232 

7640 


SZA 

CLA 

00233 

S27 1 


JMP SMODE 

00234 

1040 


TAD 

TEMPI 

00235 

1246 


TAD 

JMSI 

00236 

3240 


OCA 

• ♦2 

00237 

4307 


JMS 

ARGPRE 

00240 

0240 

ILOOPF , 

• 


00241 

7000 


NOP 


00242 

5212 


JMP 

ILOOP 

00243 

1247 

SCASt, 

TAD 

JMPI 

00244 

3245 


DCA 


00245 

0245 


• 


00246 

4661 

JMSI , 

JMS 

I SEPI 

00247 

5661 

JMPI, 

JMP 

I SEPI 


✓FLUSH 

✓PUT FPP IN SI MODE 
✓GET NEXT PSEUDO-INSTRUCTION 
✓SAVE FOR LATER 
✓CALL TO TTY DRIVER 


✓STRIP TO OPCODE BITS 


✓OPCOOE NOW IN BITS 8-11 
✓SUBTRACT 10 
✓IS OPCOOE <10? 

✓CALL TO INSTRUCTION COMMON TO SMODE AND AMODE 
/YES-SAVE THE OFFSET 
✓WHICH MODE? 

/STRING MODE 

✓ARITHMETIC MODE-GET OFFSET 
/MAKE JMS TO FP PACKAGE ROUTINE 
✓PUT IN LINE 

/SET UP ARGUMENT FROM SYMBOL TABLE 

/JMS TO THE FLOATING POINT PACKAGE ROUTINE 

/FPP SOMETIMES RETURNS TO CALL+2 

/DONE 

/JUST DISPATCH TO ROUTINE CALLED FOR 

/JUMP TO APPROPRIATE ROUTINE 

/JMS USED FOR CALLS TO FPP 8Y AMQDE INST 
/ JMP USED TO CALL ROUTINES COMMON TO AMODE AND SMODE 


/OS/8 BASIC RUNTIME SYSTEM 
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00250 7770 KM10, 


• 10 
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PAGE 8 


00251 

00252 

00253 

00254 

00255 

00256 

00257 
00260 

00261 

00262 

00263 

00264 

00265 

00266 
00267 
00270 


00271 

00272 

00273 

00274 

00275 

00276 


00277 

00300 

00301 

00302 

00303 

00304 

00305 

00306 



/JUMP 

TABLE FOR AMOOE 

INSTRUCTIONS 



6000 


FFADO 

/FACjCCAJ+FAC 

OPCODE 

0 

6117 


FF8UB 

/fac^fac-cca) 

OPCODE 

1 

5600 


FFMPY 

/FAC^F AC*C (A) 

OPCODE 

2 

5722 


FFDIV 

/FAC^FAC/C (A) 

OPCODE 

3 

6241 


FFGET 

/FAC a C(A) 

OPCODE 

4 

6256 


FFPUT 

/C ( AJ^FAC 

OPCODE 

5 

5400 


FFSUB1 

/FACj.CtAI-FAC 

OPCODE 

6 

5412 


FF0IV1 

/FAC.C(A)/FAC 

OPCODE 

7 


/all instructions beyond this point are common 

i TO AMODE 

: AND SMODE 

1400 

SEP1, 

LSI I 

/Sl^C (A) 

OPCODE 

10 

1410 


LS2I 

/S2.,C(A) 

OPCODE 

11 

0400 


FJOCI 

/IF TRUE, PC.*.C(PC, PCM) 

OPCODE 

12 

0445 


jeofi 

/IF EOF , PCj.C (PC , PCM ) 

OPCODE 

13 

1140 


LINEI 

/LINE NUMBER 

OPCODE 

14 

0600 


ARRAY! 

/ARRAY INST 

OPCODE 

15 

0113 


ILOOPL 

/NOP 

OPCODE 

16 

1200 


OPERI 

/OPERATE INST 

OPCODE 

17 

1040 

SMQDi, 

TAD TEMPI 

/INST OFFSET 



1306 


TAD JMSSI 

/BUILD JMP OFF STRING 

table 


3276 


DCA SDIS 

/PUT IN LINE 


7100 


CLL 

/STRING SCALAR TABLE 



4705 


JMS I STFINL 

/SET UP ARGUMENT ADDRESS 


0276 

SDXS, 

• 

/CALL STRING ROUTINE REQUESTED 



/JUMP 

TABLE FOR SMODE 

INSTRUCTIONS 




/ A "/*" IN THE COMMENT MEANS THAT THAT OPCODE 

IS NOT USED. SO WE 


/USE THE SCOT FOR REGULAR STORAGE 



2200 


SC0N1 

/SACj.SAC&C (AS) 



2061 


SCOMP 

/IF SAC ,NE. C (AS) , PC 4.1 

PC*2 


2417 


SREAO 

/C(AS)*OEVICE 


0302 

INTPC, 

• 

/* INTERPRETER PC 



3150 


SLOAD 

/SACj.C (AS) 



0477 


SSTORE 

/C (AS) .SAC 



1666 

STFINL 

t STFIND 

/* LINK TO STRING FINDING ROUTINE 

5707 

JMSSI, 

JMP I ,+i 

/* DISPATCH JUMP FOR SMODE INSTRUCTIONS 


/****** **************************************** ************* 


/END OF I»LOOP 






**o*******************H*****n*****n***i(*********** 
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/AR6PRE "ROUTINE TO TRANSLATE OPERAND PIELO INTO 12 BIT POINTER 
/INTO SCALAR TABLE FOR USE IN FPP CALLS. 


00307 

0000 

argpre , 

0 



00310 

1064 


TAD 

INSAV 

/GET INSTRUCTION 

00311 

0101 


AND 

*0377 

/STRIP TO OPERANO FIELD 

00312 

3040 


OCA 

TEMPI 

/SAVE 

00313 

1040 


TAD 

TEMPI 


00314 

7104 


CLL 

PAL 

/*2 

00315 

1040 


TAD 

TEMPI 

/PTR*3 

00316 

1021 


TAD 

SCSTRT 

/MAKE 12 BIT ADOR 

00317 

1000 

SCALOFf 

1000 

/OF TO SCALAR FIELD (CDF INITIALIZED BY LOADER) 

00320 

5707 


JMP 

X ARGPRE 

/RETURN 




///////////////////////////////////////////////////////////// 
/////////////// STRING ACCUMULATOR ///////////////////////// 
////✓//////////////////////////////////////////////////////// 



/36 LOCATIONS USED TO 

HOLD STRING OPERANDS AND RESULTS FOR STRING 



/OPERATIONS, AT LOAD 

TIME, IT IS FULL OF ONCE-ONLY STARTUP CODE 



START1, 



00321 

7404 

SAC, 

OSR 


00322 

7640 


SZA CIA 


00323 

7000 


NOP 

/A HLT PLACED HERE WILL ALLOW YOU TO STOP 
/MACHINE BEFORE RUNTIME SYSTEM STARTS BY 
/SETTING SWITCH REGISTER 

00324 

6046 


TLS 

/SET TTY FLAG 

00325 

2017 


ISZ SPINNR 

/SPIN RANDOM NUMBER SEED 

00326 

7000 


NOP 

/WHILE WAITING FOR INITIALIZING TLS 

00327 

6041 


T5F 

/FLAG UP YET? 

00330 

00331 

5325 

1020 


JMP t *3 

TAD CDFIQ 

2. )) !/l % K S') S ^ D p 

00332 

3763 


DCA I PS 1L 

/SET UP COFS IN PSwAP 

00333 

1020 


TAD CDFIO 


00334 

3764 


DCA I PS2L 


00335 

4556 


JM5 I PtSWAP^ 

/RESTORE PAGE 17600 

00336 

1317 


TAD SCALDF 

/SET PROG NOT RESTARTABLE BIT 

00337 

3757 


DCA I L7746 

/TELL USR TO SAVE 1000-1777 

00340 

1361 


TAD P1NFO 

/POINTER TO INFO TABLE IN 17600 

00341 

3011 


DCA XR1 

00342 

1362 


TAD P0VTA9 

/POINTER TO BLOCK TABLE IN OVERLAY DRIVER 

00343 

3012 


DCA XR2 

00344 

1360 


TAD MINUS4 

/WE HAVE TO GET 4 BLOCK NUM8ERS 

00345 

3040 


DCA TEMPI 


00346 

6211 

OVML, 

CDF 10 


00347 

1411 


TAD I XR 1 

/GET BLOCK NUMBER FOR THIS OVERLAY FROM INFO ARE 

00350 

6201 


CDF 

00351 

3412 


OCA I XR2 

/PUT IN TABLE IN OVERLAY DRIVER 

00352 

2040 


ISZ TEMPI 

/DONE? 

00353 

5346 


JMP OVML 

/NO 


/OS/8 

00354 

00355 

00356 

00357 

00360 

00361 

00362 

00363 

00364 


00365 

00366 

00367 

00370 

00371 

00372 


00373 

00374 

00375 

00376 

00377 


BASIC 

RUNTIME 

SYSTEM 

PAL8-V7 10/24/72 PAGE 9-1 

4556 

5756 

1152 

L7746, 

JMS I P1SWAP 
JMP I .*1 
START3 

/YES-FLUSH PAGE 17600 

/CONTINUE THE INITIALIZING CODE 

7746 

7746 

7774 

MINUS4# 

• 4 


7607 

PINFO, 

7607 


1530 

POVTAB, 

ARITHA-t 


1240 

PS1L* 

P1CDF 


1245 

PS2l» 

P1CDF1 



IN INTERMEDIATE BUFFER 


//////// ////// ////// / /////////////////////////////////////// 

nunmunnmnmntutn/Ntntn/nnt/tnnnntu/ 


/ROUTINE TO ZERO FAC 


0000 

FACCLRi 

0 




7600 

17600) 

7600 

/ CLA 


3044 


OCA 

EXP 

/ZERO 

EXPONENT 

3046 


OCA 

LORD 

/ZERO 

LOW MANTISSA 

3045 


OCA 

HORO 

/ ZERO 

HIGH MANTISSA 

5765 


JMP 

I FACCLR 




(KN0WN °"LY TO COMPILER FOR TERMINATING 

^rKlNT ST ATEnENTS) 


0000 CRFUNC* 0 
4550 JMS I FTVPL 

5513 JMP I ILOOPL 

4553 JMS I CRLF 

5513 JMP I ILOOPL 


/IS FILE NUMERIC? 

/YES-WE DON'T WANT TO OUTPUT CRLF 
/DO AS WE ARE TOLO 
/NEXT INST 


/OS/8 BASIC RUNTIME SYSTEM 
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0400 PAGE 


/JUMP ON CONDITION 


00400 

1064 

FJQCI, 

TAD 

XNSAV 

/GET JUMP INSTRUCTION 

00401 

0074 


AND 

K0017 

/MASK OFF JUMP CONDITION 

00402 

7450 


SNA 


/IS IT GOSUB? 

00403 

5215 


JMP 

GOSUB 

/YES-PUSH PC ON STACK THEN JUMP 

00404 

1365 


TAD 

FSTOPI 

/BASE TAD FOR BUILD OF TAD INSTRUCTION 

00405 

3206 


DC A 

• ♦1 

/PUT IN LINE 

00406 

0406 


• 


/GET PROPER SKIP 

00407 

3211 


DCA 


/PUT IN LINE 

00410 

1045 


TAD 

HORD 

/GET HIGH ORDER FAC 

00411 

0411 


• 


/SKIP INSTRUCTION 

00412 

5221 


JMP 

SUCJMP 

/CONDITION TRUE-JUMP 

00413 

4520 

JFAIL, 

JMS 

I PWFECL 

/CONDITION FALSE-OON'T JUMP, BUT BUMP PC 

00414 

5513 


JMP 

I ILOOPL 

/DONE 

00415 

1515 

GOSUB, 

TAD 

I CDFPSL 

/GET CURRENT PC DATA FIELD 

00416 

4642 


JMS 

I PUSHGL 

/PUSH ON GOSUB STACK 

00417 

1644 


TAD 

I INTPCL 

/GET CURRENT PC 

00420 

4642 


JMS 

I PUSHGL 

/PUSH ON GOSUB STACK 

/FALLS INTO UNCONDITIONAL JUMP BECAUSE A 
/GOSUB IS MERELY A PUSH FOLLOWED BY A JUMP 

00421 

4520 

SUCJMP, 

JMS 

I PWFECL 

/GET WORD FOLLOWING JUMP INS, 

00422 

3644 


DCA 

I INTPCL 

/STORE AS NEW PC 

00423 

1064 


tad 

INS AV 

/GET JUMP INSTRUCTION 

00424 

0100 


AND 

K0340 

/MASK OFF DESTINATION FIELD 

00425 

7112 


CLL 

RTR 

/SLIDE OVER 

00426 

1341 


TAD 

CDFINL 

/MAKE A CDF INSTRUCTION 

00427 

3515 


OCA 

I CDFPSL 

/AND SET NEW PC INSTRUCTION FIELD 

00430 

5513 


JMP 

I ILOOPL 

/NEXT INSTUCTION 

00431 

7554 

K75S4, 

7554 


/*****THIS CONST CAN NOT BE MOVED, THERE 


/MUST BE A CONSTANT BEFORE THE SKIP T ABLE , AND 
/THER MUST BE A TAD OF THAT CONSTANT ON THIS PAGE 

/SKIP TABLE USED TO HOLD TESTS FOR VARIOUS CONDITIONS 


00432 

7600 

K7600, 

7600 

/UNCONDITIONAL (CLA) 

00433 

7700 


SMA CLA 

/ JP A 

00434 

7640 


SZA CLA 

/ JNA 

00435 

7740 


SMA SZA CLA 

/ JP A JNA 

00436 

7710 


SPA CLA 

/ JM A 

00437 

7650 


SNA CLA 

/ J2 A 

00440 

7750 


SPA SNA CLA 

/ JMA JZA 

00441 

5643 


JMP I JFORL 

/FORLOUP JUMP ROUTINE 

00442 

2326 

PUSHGL* 

PUSHG 


00443 

2042 

JFORL, 

JFOR 


00444 

0302 

INTPCL, 

I NTPC 
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/JUMP ON END OF FILE 


00445 

4523 JEOF I t 

JMS 

I FIOLE 

00446 

1563 

TAD 

I WORD0 

00447 

7112 

CLL 

RTR 

00450 

7620 

SNL 

CLA 

00451 

5213 

JMP 

JFAIL 

00452 

5221 

JMP 

SUCJMP 


/SEE IF FILE OPEN 
/ 1ST WORD OF I/O TABLE ENTRY 
/GET EOF BIT IN LINK 
/EOF? 

/NO»DON 9 T JUMP 
/JUMP 


00453 

0000 

00454 

0000 

00455 

0000 

00456 

0000 

00457 

0000 

00460 

0000 

00461 

0000 

00462 

0000 

00463 

0000 

00464 

0000 

00465 

0000 

00466 

0000 

00467 

0000 

00470 

0000 

00471 

0000 

00472 

0000 

00473 

0000 

00474 

0000 

00475 

0000 

00476 

0000 


////////////////// GQ3UB STACK //////////////////////////// 
GSTCKp 0 /START OF GQSUB STACK 

0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 

GSSTOP, 0 /TOP OF GOSUB STACK 


/OS/e BASIC RUNTIME SYSTEM 
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/STRING 

ACCUMULATOR 

STORE 

00477 

3736 

SSTQNE i 

DCA I STHCDF 

/STORE CDF FOR OPERAND IN STH 

00500 

1111 


TAD 5ACPTR 


00501 

7101 


CLL ZAC 

/SET AC TO ADOR OF SAC 

00502 

4527 


JMS I LDHINL 

/INITIALIZE LOH TO PULL CHARS FROM SAC 

00503 

4557 


JMS I LDHRST 

/SAC IS IN FIELD 0 

00504 

1072 


TAD STRPTR 

/POINTER INTO OPERAND 

00505 

7101 


CLL IAC 

/AC POINTS TO OPERANO 

00506 

4526 


JMS I STHINL 

/INITIALIZE STH TO STORE IN OPERAND 

00507 

3071 


DCA STRCNT 

/ZERO COUNT 

00510 

1032 


TAO STRLEN 

/STRING LENGTH 

00511 

7450 


SNA 

/IS IT NULL STRING? 

00512 

5327 


JMP SSTEX 

/YE5-WE DON'T HAVE TO STORE ANYTHING- JUST ZERO COUNT 

00513 

3040 


DCA TEMPI 

/SERVES AS CHARACTER COUNTER 

00514 

4531 

SSLOQP, 

JMS I LDH 

/GET CHAR FROM SAC 

00515 

4530 


JMS I STH 

/STORE IN OPERAND STRING 

00516 

2071 


ISZ STRCNT 

/BUMP OPERAND COUNT 

00517 

2040 


ISZ TEMPI 

/SAC ALL MOVED YET? 

00520 

7410 


SKP 

/NO-CHECK IF THERE'S ROOM FOR THE REST 

00521 

5327 


JMP SSTEX 

/YES-DONE 

00522 

1071 


TAD STRCNT 

/# OF CHARS IN STRING SO FAR 

00523 

1070 


TAD STRMAX 

/COMPARE TO MAXIMUM SIZE 

00524 

7740 


SMA SZA CLA 

/MAXIMUM SIZE REACHED YET? 

00525 

4516 

SL, 

JMS I ERROR 

/YES-STRING TOO LONG OR UNDEFINED 

00526 

5314 


JMP SSLOQP 

/NO-MOVE NEXT CHAR 

00527 

1736 

SSTEX, 

TAD I STHCDF 

/OF FOR STRING 

00530 

3331 


DCA 9 +l 

/PUT IN LINE 

00531 

0531 

TEMP24r 

• 

/OF TO STRING FIELD 

00532 

1071 


TAO STRCNT 

/DONE-GET # OF CHARS MOVED 

00533 

7041 


CIA 

/NEGATE {ALL COUNTS ARE NEGATIVE 

00534 

3472 


DCA I STRPTR 

/AND STORE AS COUNT WORD FOR OPERANO STRING 

00535 

5513 


JMP I ILOOPL 

/THAT'S ALL# FOLKS 1 

00536 

2603 

STHCDF , 

STHOF 
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/CALL TO DEVICE DRIVER FOR FILE I/O, ASSUMES ARGS HAVE BEEN SET UP 


00537 

0000 

DRCALL* 0 


00540 

3351 

OCA ORARG1 

/FUNCTION WORD INTO QRIVER CALL 

00541 

6001 

CDFINL# CDF 

/OF TO CURRENT FIELD 

00542 

1564 

TAD I WORD 1 

/GET BUFFER ADDRE FROM I/O TABLE ENTRY 

00543 

3352 

OCA DRARG2 

/PUT IN DRIVER CALL 

00544 

1565 

TAD I WQR02 

/GET BLOCK NUMBER FROM I/O TABLE 

00545 

3353 

OCA DRARG3 

/PUT IN DRIVER CALL 

00546 

1567 

TAO I W0RD4 

/GET DRIVER ENTRY 

00547 

3331 

OCA TEMP24 

/SAVE 

00550 

4731 

JMS I TEMP24 

/CALL DRIVER 

00551 

0000 

DRARGl , 0 

/FUNCTION CONTROL WORD 

00552 

0000 

DRARG2, 0 

/BUFFER ADDRESS 

00553 

0000 

DRARG3, 0 

/BLOCK « 

00554 

5356 

JMP DRERR 

/DEVICE ERROR 

00555 

5737 

JMP I DRCALL 

/ALLS WELL 

00556 

7710 

DRERR , SPA CLA 

/DETERMINE ERROR TYPE 

00557 

4516 

DE, JMS I ERROR 

/FATAL 

00560 

4516 

EF, JMS I ERROR 

/CALL TO INTERPRETER 

/LOGICAL EOF 

EXITING ROUTINE 

00561 

4510 

F8T0PN, JMS I PRINT 

/ON NORMAL EXITS, WE MUST EMPTY RING BUFFER 

00562 

5361 

JMP ,-l 

/FIRST 

00563 

1331 

FSTOPI, TAO K7554 


00564 

3064 

OCA INSAV 

/FAKE A CALL TO BASIC, FF FUNCTION 6 

00565 

5766 

JMP I .+1 

/CALL OVERLAY 

00566 

1471 

FUNC5I 

/ROUTINE TO RESET LOh 

FIELD TO 0 

00567 

0000 

LRESET, 0 


00570 

1341 

TAO CDFINL 


00571 

3773 

DCA I LDHDCK 

/CHANGE TO CDF 0 

00572 

5767 

JMP I LRESET 


00573 

2647 

LDHDCK, LDHOF 

/USE FUNCTION-TAKES WORD FOLLOWING CALL AND STUFFS IT IN USECON FOR 
/USE A BUFFER POINTER FOR USER SUBROUTINE 

00574 

0000 

USE, 0 


00575 

4520 

JMS I PWFECL 

/GET NEXT WORD FROM PSEUDO-CODE STREAM 

00576 

3006 

DCA USECON 

/STORE IN PAGE 0 SLOT 

00577 

5774 

JMP I USE 

/RETURN 
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0600 PAGE 


/ARRAY INSTRUCTIONS 

/ARRAY INSTRUCTIONS WORK BY UNDING THE ADDRESS OP THE ARGUMENT FROM THE ARRAY S 
/TABLE, THEN CALLING THE APPROPRIATE FLOATING POIN PACKAGE ROUTINE, 


00600 

00601 

1063 

7640 

ARRAY 1 1 

TAO MODESW 

SZA CLA 

/WHICH MODE? 

00602 

5324 


JMP SARRAY 

/SMOOE 

00603 

1064 


TAO INSAV 

/GET ARRAY INSTRUCTION 

00604 

0342 


AND K003T 

/MASK OFF ARRAY OPERAND 

00605 

7106 


CLL RTL 

/MULTIPLY BY 4 (ENTRY LENGTH) 

00606 

1022 


TAO ARSTRT 

/MAKE POINTER INTO ARRAY TABLE 

00607 

3011 


DC A XR1 

/POINTS TO ARRAY FOR THIS OPERATION 

00610 

0610 

ATABDF, 

• 

/CHANGE OF TO ARRAY TABLE FIELD (SET BY START) 

00611 

1411 


TAD I XR1 

/GET POINTER TO FIRST ARRAY ELEMENT 

00612 

3007 


DCA TEMP2 

/SAVE FOR LATER 

00613 

1411 


TAD I XR1 

/GET DF FOR VARIABLE 

00614 

3307 


DCA ADFC 

/ PUT IN LINE AT ENO OF ROUTINE 

00615 

1411 


TAD I XRt 

/GET ARRAY DIMENSION 1 

00616 

3042 


DCA TEMP3 

/SAVE 

00617 

1033 


TAD 51 

/GET SUBSCRIPT 1 

00620 

3015 


DCA BABS 

/SET UP 12 BIT COMPARE 

00621 

1042 


TAD TEMP3 

/DIMENSION 1 *1 

00622 

4405 


JMS I NUMCQM 

/SI TOO BIG? 

00623 

4516 

SU, 

JMS I ERROR 

/YES-SUBSCRIPT OUT OF BOUNDS ERROR 

00624 

3050 


DCA TEMP6 

/CLEAR TEMPORARY 

00625 

14U 


TAD I XR1 

/GET DIMENSION 2 

00626 

7450 


SNA 

/IS SECOND DIMENSION 0? (ARRAY UNIDIMENSIONAL) 

00627 

5240 


- JMP ADCALC 

/YES-OON«T CHECK S2 FOR OUT OF BOUNDS 

00630 

3371 

/ 

DCA TEMP30 

/SAVE DIM2+1 

00631 

1034 

/ 

/ 

TAD S2 

/GET SUBSCRIPT 2 

00632 

00633 

3015 

1371 

DCA BABS 

TAD TEMP30 

/SAVE 12 BIT COMPARE 

00634 

4405 

/ 

JMS I NUMCOM 

/S2 BIGGER THAN 0IM2? 

00635 

5223 


JMP SU 

/YES 

00636 

1034 

' 4 / 

TAD S2 

/MULTIPLY DIM1+1 BY S2 

00637 

4521 


JM$ I MPYLNK 

/ 12 BY 12 MULTIPLY ROUTINE ' 

00640 

7100 

ADC ALC 9 

CLL 


00641 

1033 


TAD SI 

/LORD OF SI* (DIM1+1) *S2 

00642 

3047 


DCA TEMPS 

/SAVE 

00643 

7004 


ral 

/CARRY TO BIT 11 

00644 

1050 


TAD TEMP6 

/HORD OF S1*(DIM1*1)*S2 

00645 

3050 


DCA TEMP6 

/SAVE 

00646 

1047 


TAD TEMPS 

/LORD OF Sl+(DIMl*l)*S2 

00647 

7104 


CLL RAL 

/*2 

00650 

3051 


DCA TEMP7 

/LORD OF (S1*(DIM1*1)*S21 *2 

00651 

1050 


TAD TEMP6 

/HORD OF S1*(0IM1*1)*S2 

00652 

7004 


ral 

/*2 

00653 

00654 

3042 

7100 


DCA TEMP3 

CLL 

/HORD OF (Sl*(DIMt*l)*S2) *2 

00655 

1047 


TAD TEMPS 

/LORD OF Sl*(DlMi*l) 

00656 

1051 


TAP TEMP7 

/LORO OF [51*(DIHt*l) *S2) 
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00657 

3051 


DC A TEMP7 

/LORD OF 3* (Sit(DIMlM) *S2] 



00660 

7004 


RAL 

/CARRY TO BIT il 



00661 

1050 


TAD TEMPfe 

/HQRD OF [SUCDIM1MJ *S2) *2 



00662 

1042 


TAD TEMP3 

/HORD OF SI*(DXM1M)*S2 



00663 

3050 


DCA TEMP6 

/HORQ OF 3* [$1+(DIM1 + 1)*S2] 



00664 

7100 


CLL 




00665 

1051 


TAD TEMPT 

/INDEX TO ELEMENT 



00666 

1007 


TAD TEMP2 

/AC POINTS TO CORRECT ARRAY 

ELEMENT 


00667 

3011 


DCA XR1 

/SAVE POINTER 



00670 

7004 


RAL 

/CARRY TO BIT 11 



00671 

1050 


TAD TEMP6 

/COMBINE TO MAKE TOTAL # OF 

FIELD OVERLAPS 

00672 

7106 


CLL RTL 




00673 

7004 


RAL 

/SLIDE OVERLAPS TO FIELD BITS (6-S) 


00674 

1307 


TAD ADFC 

/ADD ANY CHANGE IN DATA FIELD TO CDF 


00675 

3307 


DCA ADFC 

/PUT ABSOLUTE CDF IN LINE 



00676 

1064 


TAD INSAV 

/GET ARRAY INSTRUCTION AGAIN 


00677 

0100 


AND K0340 

/MASK OFF ARRAY OPCODE 



00700 

7112 


CLL RTR 




00701 

7012 


RTR 




00702 

7010 


RAR 

/SLIDE TO BITS 9M1 



00703 

1346 


TAD JMPI2 

/AND USE AS INDEX INTO JUMP 

TABLE 


00704 

3311 


DCA AR JMP 

/PUT JUMP IN LINE OF CODE 



00705 

7001 


I AC 




00706 

3037 


DCA FF 

/PUT FPP IN "SPECIAL MODE" 



00707 

0707 

ADFC» 

• 

/CHANGE OF TO OF OF ARRAY ELEMNT 


00710 

1011 


TAO XR1 

/AC POINTS TO ARRAY ELEMENT 



00711 

0711 

AR JMP , 

• 

/PERFORM THE REQUIRED OPERATION 


00712 

7000 


NOP 

/FPP SOMETIMES RETURNS TO CALL+2 


00713 

5513 


JMP I ILOOPL 

/DONE 





/ARRAY 

JUMP TABLE 




00714 

5400 

AJT t 

FFSUB1 

/FAC*A(S1,S2)-FAC 

OPCODE 

0 

00715 

6000 


FFAOD 

/PACsFAC+ACSl,S2) 

OPCODE 

1 

00716 

6117 


FFSU9 

/FAC*FAC*A(S1,S2) 

OPCODE 

2 

00717 

5600 


FFMPY 

/FAC«FAC*ACS1,S2) 

OPCODE 

3 

00720 

5722 


FFDIV 

/FAC*FAC/A(S1,S23 

OPCODE 

4 

00721 

6241 


ffget 

/FAC«C(A(Si,$2) 

OPCODE 

5 

00722 

6256 

FPUTLL» 

FFPUT 

/C ( A (S 1 * $2) »F AC 

OPCODE 

6 

00723 

5412 


FFDIVt 

/FAC*ACS1,S2)/FAC 

OPCODE 

7 
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00724 

00725 
00728 
00727 

00730 

00731 

00732 

00733 

00734 

00735 


00736 

00737 

00740 

00741 

00742 

00743 

00744 

00745 

00746 


/STRING ARRAY OISPATCH 


106a 

SARR AY t 

TAD INSAV 

/GET INSTRUCTION 

0100 


AND *0340 

/ISOLATE ARRAY OPCODE 

7112 


CLL RTR 


7012 


RTR 

/AND SLIDE IT OVER FOR AN OFFSET 

7010 


RAR 


1336 


TAD JMPISA 

/BUILD A JUMP TO STRING INSTRCUTION 

3335 


OCA SAD 

/AND PUT IN LINE 

7120 


STL 

/TELL SFIND TO USE ARRA V TABLE 

4743 


JMS I STFILK 

/SET UP ARGUMENT AODRESS 

0735 

SAD, 

* 

/EXECUTE INSTRCUTION 


/STRING 

ARRAY JUMP TABLE 


/USED WHEN ARRAYI CALLED IN SMODE 


/ A "/*" 

1 IN THE COMMENT 

MEANS THAT OPCODE IS UNDEFINED AND THE SLOT 


/IN THE 

TABLES IS USED 

FOR NORMAL STORAGE 

5737 

JMPISA, 

JMP I .♦! 

/DISPATCH JUMP FOR STRING ARRAY INSTRUCTIONS 

2200 


SCON1 

/SACj.SACSCCASCSl)) 

2061 


SCOMP 

/SKIP IF SAC*C(A$(S1) ) 

2417 


SREAD 

/AS (SI I^DEVICE 

0037 

K0037 1 

37 

/* 

1666 

STFILK, 

STFIND 

/* LINK TO STRING FINDING ROUTINE 

3150 


3L0AD 

/SACj,C ( AS (SI ) ) 

0477 


SSTORE 

/C ( AS (SI ) ) J.SAC 

4714 

JMPI2, 

JMS I A JT 

/* OISPATCH JUMP FOR ARRAY INST 
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/ROUTINE TO PUT ONE WORD IN pile buffer IN FIELD 1 


007417 

0000 

bcput, 

0 



00750 

3050 


OCA 

TEMP6 

/SAVE AC 

00751 

4523 


JMS 

I FIOLE 

/CHECK IF FILE OPEN 

00752 

1566 


TAD 

I W0RD3 

/GET READ/WRITE POINTER 

00753 

3051 


OCA 

TEMP7 

/SAVE 

00754 

1162 


TAD 

ENTNG 

/GET FILE # 

00755 

7640 


SZA 

CIA 

/IF TTY, BUFFER FIELD IS 0 

00756 

6211 


CDF 

10 


00757 

1050 


TAO 

TEMP6 

/GET WORD TO STORE AGAIN 

00760 

3451 


OCA 

I TEMPT 

/STORE IT IN BUFFER 

00761 

6201 

COP0* 

CDF 



00762 

1563 


TAO 

1 WORO0 

/HEADER WORD 

00763 

0370 


AND 

K7737 

/TURN OFF BLOCK WRITTEN BIT 

00764 

1367 


TAD 

K40 

/TURN IT ON AGAIN 

00765 

3563 


DC A 

1 WORQ0 


00766 

5747 


JMP 

I BCPUT 

/RETURN 

00767 

0040 

K40. 

40 



00770 

7737 

K7737, 

7737 




/ROUTINE 

: to 

SET STM OF 

TO 0 



TEMP30, 




00771 

0000 

SRESET t 

0 



00772 

1361 


TAD 

CDF0 


00773 

3775 


OCA 

I STHOKK 


00774 

5771 


JMP 

I SRESET 


00775 

2603 

STHOKK t 

STHDF 
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/TELETYPE DRIVING ROUTINE 

n ENTRY P0INT5-XPUTCH PUTS A CMARCTER IN f HE RING BUFFER 
/ XPRINT TYPES A CHARACTER IF POSSIBLE 

/ AND RETURNS TO CALL+1 IF THERE 

/ ARE MORE CHARCTERS IN THE BUFFER, CALL+2 

/ IF THE BUFFER IS EMPTY 

/THE IDEA IS THE PLACE CALLS TO XPRINT AT VARIOUS POINTS IN THE' INTER" 
/PRETER AND THUS KEEP THE TTY BUSY WITHOUT WASTING THE TIME WAITING FOR 
/THE TTY FLAG, THE SUCCESS OF THIS SCHEME DEPENDS HEAVILY ON THE NUMBER 
/AND PLACEMENT OF THE CALLS TO XPRINT, 


01000 

0000 

XPUTCH, 0 

01001 

3040 

DCA CHRSAV 

01002 

2017 

XPUT1, ISZ SPINNR 

01003 

4234 

JMS XPRINT 

01004 

7000 

NOP 

01005 

1230 

TAD BCNT 

01006 

7650 

SNA CLA 

01007 

5202 

JMP XPUT1 

01010 

1040 

PUTCHR, TAD CHRSAV 

01011 

3625 

DCA I BUFIN 

01012 

2225 

ISZ BUFIN 

01013 

7340 

CLA CLL CMA 

01014 

1230 

TAD BCNT 

01015 

3230 

DCA BCNT 

01016 

1225 

TAD BUFIN 

01017 

1231 

TAO MBEND 

01020 

7750 

SPA SNA CLA 

01021 

5600 

JMP I XPUTCH 

01022 

1227 

TAD BSTRTA 

01023 

3225 

DCA BUFIN 

01024 

5600 

JMP I XPUTCH 

01025 

1070 

BUFIN, 8STRT 

01026 

1070 

BUFDUT, BSTRT 

01027 

1070 

BSTRTA, BSTRT 

01030 

0050 

BCNT, 50 


0040 

chrsav»tempi 

01031 

6641 

MBEND, -BEND 

01032 

7575 

MCTRLC, -203 

01033 

7730 

M50, -50 

01034 

0000 

XPRINT, 0 

01035 

6031 

KSF 

01036 

5244 

JMP NOCC 

01037 

1077 

TAO K0200 

01040 

6034 

KRS 

01041 

1232 

TAD MCTRLC 

01042 

7650 

SNA CLA 

01043 

5561 

JMP I FSTOP1 

01044 

1230 

NOCC, TAD BCNT 


/SAVE THE CHARACTER 
/SPIN RANDOM # SEEO 
/START A CHAR IF POSSIBLE 

/GET THE NUMBER OF AVAILABLE SLOTS 
/ARE THERE ANY? 

/NO-TRY TO RPINT l AND FREE UP A SPACE 

/GET CHARACTER AGAIN 

/PUT CHARACTER IN RING BUFFER 

/BUMP BUFEER POINTER OF INPUT 

/-I IN AC 

/DECREMENT AVAILABLE SLOT COUNT 

/GET BUFFER INPUT POINTER 
/SUBTRACT ADDR OF END OF BUFFER 
/PAST EDN OF BUFFER? 

/NO-RETURN 

/YES-RESET INPUT POINTER TO BEGINNING OF BUFFER 
/RETURN 

/POINTER TO NEXT SLOT FOR BUFFER INPUT 
/POINTER TO NEXT CHARACTER TO BE PRINTED 
/ADDR OF START OF TTY BUFFER 

/* OF AVAILABLE SLOTS IN BUFFER £40 INITIALLY! 
/•ADOR OF END OF RING BUFFER 


/IS KEYBOARD FLAG UP? 

/NO-NO CHANCE FOR A CTRL/C 
/FORCE PARAITY BIT 

/YES-GET THE CHAR IN KEYBOARD BUFFER 
/IS IT CTRL/C 

/YES-ABORT TO EDITOR 

/# OF AVAILABLE SLOTS IN buffer 
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01045 1233 

01046 7650 

01047 5266 

01050 6041 

01051 5634 

01052 1626 


TAD M50 
SNA CLA 
JMP RECP2 
TSF 

JMP I XPRINT 
TAD I BUFOUT 


/IS BUFFER EMPTY? 

/YES-RETURN TO CALL+2 
/NG-TTY FLAG UP YET? 

/NO-GO ABOUT YOUR BUSINESS 
/GET NEXT CHARACTER 


/****************#************************************************: 

/N t B, BECAUSE OF THE ABOVE INSTRUCTION, THE DF MUST BE SET TO THE 
/INTERPRETER field WHENEVER XPRINT IS CALLED, WATCH YOUR HOOK PLACEMENT 1 

/ft********************************,*.************** *»,»******,„», 


010S3 

6046 


TLS 

/TYPE IT 

01054 

7300 


CLA CLL 


01055 

2226 


ISZ BUFOUT 

/BUMP BUFFER OUTPUT POINTER 

01056 

1226 


TAD BUFOUT 

/GET OUTPUT POINTER 

0105T 

1231 


TAD MBEND 

/SUBTRACT END OF BUFFER 

01060 

7750 


SPA SNA CLA 

/IS OUTPUT POINTER PAST END? 

01061 

5264 


JMP B0UTR5 

/NO-FREE UP A SPOT 

01062 

1227 


TAD BSTRTA 

/YES-RESET POINTER TO BEGINNING 

01063 

3226 


OCA BUFOUT 


01064 

2230 

BOUTRSr 

ISZ BCNT 

/INCREMENT 4 OF FREE SLOTS (WE JUST PRINTED ONE) 

01065 

5634 


JMP I XPRINT 

/RETURN 

01066 

2234 

RECP2, 

ISZ XPRINT 

/BUMP RETURN 

01067 

5634 


JMP I XPRINT 

/RETURN TO CALL+2 FOR EMPTY BUFFER 



/teletype ring buffer 


01070 

0000 

BSTRT, 

0 

/START OF BUFFER 

01071 

0000 


0 


01072 

0000 


0 


01073 

0000 


0 


01074 

0000 


0 


01075 

0000 


0 


01076 

0000 


0 


01077 

0000 


0 


01100 

0000 


0 


01101 

0000 


0 


01102 

0000 


0 


01103 

0000 


0 


01104 

0000 


0 


01105 

0000 


0 


01106 

0000 


0 


01107 

0000 


0 


01110 

0000 


0 


01111 

0000 


0 


01112 

0000 


0 

/40 CHARACTERS LONG 

01113 

0000 


0 


01114 

0000 


0 


01115 

0000 


0 


01116 

0000 


0 


01117 

0000 


0 


01120 

0000 


0 


01121 

0000 


0 


01122 

0000 


0 
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PAL8-V7 
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01123 

0000 

0 


01124 

0000 

0 


01125 

0000 

0 


01126 

0000 

0 


01127 

0000 

0 


01130 

0000 

0 


01131 

0000 

0 


01132 

0000 

0 


01133 

0000 

0 


01134 

0000 

0 


01135 

0000 

0 


01136 

0000 

0 


01137 

0000 BEND# 

0 

/END OF TTY BUFFER 
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/LINE NUMBERS 


OU«0 

1064 

LINE1, 

TAD 

INSAV 

/GET INSTRUCTION 


01141 

3065 


DCA 

LINEHI 

/SAVE 


01142 

4520 


JMS 

I PWFECL 

/GET WORD FOLLOWING 

LINE # INST 

01143 

3066 


DCA 

LINELO 

/SAVE AS LOW ORDER 

LINE * 

01144 

5513 

TRHQOKi 

JMP 

I ILOOPL 

/RETURN TO I-LOOP 


01145 

1351 


TAO 

KC240 

/IF TRACE IS ON, FAKE CALL 

01146 

3064 


DCA 

INSAV 

/TO PUNC2,#12 


01147 

5750 


JMP 

I . + 1 



01150 

1472 


FUNC2I 

/DISPATCH TO TRACE 

FUNCTION 


/////////////////////////////////////////////////////////// 
////////// INTERMEDIATE TELETYPE BUFFER /////////////////// 

tuniniinumuniuniuntminiitniiniiiuniuii 
/USED TO BUFFER OUTPUT FROM FPP BEFORE WE PUT IT 
/IN BASIC FORMAT FOR TRANSPORTATION TO THE TTY RING 
/BUFFER, FILLED WITH INITIALIZATION CODE WHEN ENTERED 


01151 

0240 

KC240, 

240 

/STOPPER TO MARK BEGINNING OF BUFFER 

01152 

1025 

INTERS, 

STARTS, 

TAD CDFPS 

/CDF FOR PSEUDO-CODE T K 

01153 

3515 


DCA I CDFPSL 

/PUT IN-LINE TO ILOOP 

01154 

1026 


TAD PSSTRT 

/START OF PSEUDO-CODE 

01155 

3775 


DCA I INTPCK 

/PUT INTO PC 

01156 

4537 


JMS I FCLR 

/ZERO FAC L <./< 

/CDF FOR SYMBOL TABLE FIELD 6 in F 

01157 

1020 


TAD CDF 10 

01160 

3774 


DCA I STDFL 

/PUT IN LINE FOR STRING FUNCTIONS 

01161 

1020 

FPPTM5, 

TAD CDF 10 

/CDF FOR SYMBOL TABLES 

01162 

3773 


DCA I ATABDL 

/PUT IN LINE FOR ARRAY CALCULATIONS 

01163 

1020 


TAD CDF 10 

/ CDF FOR SCALAR TABLE 

01164 

3777 

FPPTM4 , 

DCA I SCALOL 

/PUT IN line for argpre 

01165 

1020 


TAO CDF 10 


01166 

3776 


DCA I DLCDFL 

/DATA FIELD FOR OATA LIST 

01167 

1030 

FPPTM3, 

TAD DLSTRT 


01170 

3016 


DCA OLPTR 

/DO A RESTORE IN INCORE DATA LIST 

01171 

5772 


JMP I .♦! 

/CONTINUE INITAILIZATION CODE IN TTY INPUT BUFFER 

01172 

6600 

FPPTM2, 

START4 


01173 

0610 

atabdl, 

ATABDF 


01174 

1701 

STDFL, 

FPPTM1, 

STDF 

/FLOATING POINT TEMPORARY 

01175 

0302 

INTPCK, 

INTPC 


01176 

2317 

dlcdfl, 

OLCDF 


01177 

0317 

SCALOL, 

SCALOF 



/////////////////////////////////////////////////////////// 
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1200 PAGE 

/OPERATE CLASS INSTRUCTIONS 


01200 

1064 

OPERI , 

TAD 

I NS A V 

01201 

0074 


AND 

K 0 0 1 7 

01202 

1205 


TAD 

JMPI3 

01203 

3204 


DCA 

.♦1 

01204 

1204 


• 


01205 

5606 

JMPI3, 

JMP 

I .*1 


/OPERATE JUMP TABLE 


/GET OPERATE INSTRUCTION 

/MASK OFF OPERATE OPCODE 

/BUILD JUMP OFF OPERATE JUMPTABLE 

/STORE THE JUMP IN LINE 

/DISPATCH TO PROPER OPERATE ROUTINE 

/JUMP TO OPERATE ROUTINE CALLED FOR 


01206 1542 FUNC3I /CALL RESIDENT FUNCTION OPCODE 0 

01207 1600 SPFUNC /SPECIAL FUNCTIONS OPCODE 1 

01210 2000 SFN /SET FILE NUMBER OPCODE 2 

01211 1226 FNEGI /NEGATE FAC OPCODE 3 

01212 6550 RETRNI /GOSUB RETURN OPCODE 4 

01213 2572 RESTOR /RESTORE DEVICE OPCODE 5 

01214 1403 LSUB1I /LOAD St FROM FAC OPCODE 6 

01215 1413 LSUB2I /LOAD S2 FROM FAC OPCODE 7 

01216 0020 MSPACEr 20 /THIS OPCODE NOT DEFINED, SO WE PUT A CONST HERE 

01217 3105 REAOI /RE AO DEVICE OPCODE 11 

01220 3200 WRITEI /WRITE DEVICE OPCODE 12 

01221 2460 SWRITE /STRING WRITE OPCODE 13 

01222 1471 FUNC5I /CALL FILE FUNCTION OPCODE 14 

01223 1466 FUNC4I /CALL USER FUNCTION OPCODE 15 

01224 1473 FUNC1I /CALL FUNCTIONS 1 OPCODE 16 

01225 1472 FUNC2I /CALL FUNCTIONS 2 OPCODE 17 

/ 

/FLOATING NEGATE 

01226 4540 FNEGI, JMS I FNEGL /CALL NEGATE ROUTINE 

01227 5513 JMP I ILQOPL /RETURN TO ILOOP 



/OS/8 BASIC RUNTIME SYSTEM 


PALB-V7 10/24/72 


PAGE 20 




01230 

01231 

01232 

01233 

01234 

01235 

01236 

01237 

01240 

01241 

01242 

01243 

01244 

01245 

01246 

01247 

01250 

01251 

01252 

01253 

01254 

01255 

01256 

01257 


0000 

1253 

3040 

1031 

7700 

1077 

1103 

3007 

7402 

1407 

3043 

6211 

1440 

7402 

3407 

6211 

1043 

3440 

2007 

7600 

2040 

5240 

6201 

5630 


/ROUTINE TO SWAP PG 17600 WITH N7400 OR N7600 (WHICHEVER THE CASE MAY HE1 
/WHERE N IS THE HIGH CORE FIELD 


PSWAPj 


P1COF, 

P2CDF, 

P1CDF1, 

P2CDF1, 

KK7600, 


0 

-T*B-*JCZ 600 

DCA TEMPI 
TAD P5FLA6 
SMA CLA 
TAD K200 
TAD K7400 
DCA TEMPS j 
HLT cor 
TAO I TEMP2 
DCA TEMP4 
CDF 10 

mw' 

DCA I TEMP2 
CDF 10 
TAD TEMP4 
OCA I TEMPI 
ISZ TEMPS 
7600 

ISZ TEMPI 
JMP PI CDF 
CDF 

JMP I PSWAP 


/PO I NTE R T 0 17600 AND ■EOtWT€R 





/GET RESIOENT STATUS FLAG 
/WHICH HI-CORE PAGE IS IT IN? 
/7600 
/7400 

/POINTER TO HIGH CORE 
/DF TO HI CORE ?Z I 

/GET WORD FROM HI CORE 
/SAVE IT 


n t c i 


/GET WORD FROM 17600 

/OF TO HI CORE AGAIN (,ZZi 

/PUT 17600 WORD IN HI CORE 


cof go 


/GET SAVED HI CORE WORD 
/AND PUT IN 17600 
/BUMP HI CORE POINTER 
/ CLA 

/BUMP 17600 POINTER AND CHECK FOR DONE 
/NO DONE-MOVE NEXT WORD 

/DONE-RETURN 


r.jr£ 


*<*&&*) 0) (§> ) 

7 
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/SUBKOUTINE ASCOUT 

/ROUTINE CALLED BY WRITE WITH THE NUMBER TO BE WRITTEN IN FAC, 
/CALLS THE FPP TO OUTPUT THE DIGITS TO AN INTERMEDIATE BUFFER, THEN 
/MASSAGES THAT BUFFER TO PUT OUTPUT IN BASIC FORMAT. 


01260 

0000 

ASCOUT t 

0 



01261 

4532 


JMS 

1 FACSAl 

/SAVE THE FAC 

01262 

1045 


TAD 

HORD 

/GET HI MANTISSA 

01263 

7650 


SNA 

CLA 

/IS NUMBER 0? 

01264 

5302 


JMP 

FFQRMT 

/YES-USE F FORMAT 

01265 

4776 


JMS 

I ABSVLL 

/ABSOO 

01266 

4771 


JMS 

I FSUBLK 

/ ABS ( X ) "999999 

01267 

2514 


A999 


01270 

1045 


TAD 

HORD 

/GET HI MANTISSA OF RESULT 

01271 

7740 


$ma 

SZA CLA 

/IS ABS C X D >9999997 

01272 

5307 


JMP 

E20P10 

/YES-USE E FORMAT FOR OUTPUT 

01273 

4533 


JMS 

I FACREL 

/GET X AGAIN 

01274 

4776 


JMS 

I ABSVLL 

/ ABS (X ) 

01275 

4771 


JMS 

I FSUBLK 

/ABS (X) *,00000 1 

01276 

2175 


AP0001 


01277 

1045 


TAD 

HORD 


01300 

7710 


SPA 

CLA 

/IS ABS (X) > t 000001 ? 

01301 

5307 


JMP 

E20P10 

/NO-USE E FORMAT 

01302 

1073 

FFQRMT, 

tad 

K0010 


01303 

3060 


OCA 

DADP 

/6 PLACES AFTER DEC PT 

01304 

1216 


TAD 

MSPACE 


01305 

3057 


DCA 

FLDW 

/ 16 COLUMNS IN FIELD WIDTH 

01306 

7001 


I AC 


/SET FLAG FOR F FORMAT 

01307 

3056 

E20P 1 0 1 

DCA 

eflg 

/SET FORMAT FLAG 

01310 

4533 


JMS 

I FACREL 

/GET X BACK IN FAC 

01311 

1372 


TAD 

INTRB 

/ ADDR OF INTERMEDIATE 9UFFER-1 

01312 

3013 


DCA 

XR3 

/XR3 POINTS TO INTERMEDIATE BUFFER 

01313 

4773 


JMS 

I FFOUTL 

/USE FPP TO PUT ASCII NUMBER IN INTERMEDIATE BUFFER 

01314 

7240 


CLA 

CMA 

/-I IN AC 

01315 

1013 


TAD 

XR3 

/ AODR OF LF IN INTER 9UFFER-1 

01316 

3061 


DCA 

TEMP 10 

/TEMP10 POINTS TO CR IN BUFFER 

01317 

3007 


DCA 

TEMP2 

/CLEAR CHARACTER COUNT 

01320 

3042 


DCA 

TEMP3 

/clear zero replace flag 

01321 

3043 


OCA 

TEMP4 

/CLEAR DECIMAL POINT SEEN FLAG 

01322 

7240 

CFtTCH, 

CLA 

CMA 

/-I IN AC 

01323 

1061 


TAD 

TEMP 1 0 


01324 

3061 


DCA 

TEMP 10 

/BACK UP POINTER TO NEXT CHAR 

01325 

1461 


TAD 

1 TEMP 1 0 

/GET CHAR FROM BUFFER 

01326 

1374 


TAO 

M260 

/ « « 0 H 

01327 

7450 


SNA 


/IS IT ”0”? 

01330 

5342 


JMP 

ZR 

/YES-REPLACE WITH CR IF ZERO FLAG NOT SET 






/OR ALTMQDE IF IN E FORMAT AND DECPT HAS BEEN SEEN, 

01331 

1216 


TAO 

MSPACE 

/IS IT '» •«? 

01332 

7450 


SNA 



01333 

5660 


JMP 

I ASCOUT 

/YES-DGNE"PREPARE THE NUMBER FOR TYPING 

01334 

2007 

ZRO FF , 

isz 

TEMP2 

/NQ-BUMP CHAR COUNT 

01335 

1375 


TAO 

MQECPT 

/IS IT ”.»? 

01336 

7650 


SNA 

CLA 
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01337 

5363 


JMP COUNCK 

01340 

2042 


ISZ TEMP3 

01341 

5322 


JMP CFETCH 

01342 

1056 

ZR, 

TAO EFLG 

01343 

7640 


SZA CCA 

01344 

5352 


JMP ZRCONT 

01345 

1043 


TAD TEMP4 

01346 

7650 


SNA CLA 

01347 

5334 


JMP ZROFF 

01350 

1101 


TAD K0377 

01351 

5361 


JMP CRRER* 1 

01352 

1043 

ZRCONT, 

TAD TEMP4 

01353 

7640 


SZA CLA 

01354 

5334 


JMP ZROFF 

01355 

1042 


TAD TEMP3 

01356 

7640 


SZA CLA 

01357 

5334 


JMP ZROFF 

01360 

1054 

CRRER, 

TAD K215 

01361 

3461 


DCA I TEMP10 

01362 

5322 


JMP CFETCH 

01363 

2043 

COUNCK, 

ISZ TEMP4 

01364 

7240 


CLA CMA 

01365 

1007 


TAD TEMP2 

01366 

7640 


SZA CLA 

01367 

5322 


JMP CFETCH 

01370 

5360 


JMP CRREP 

01371 

6117 

FSUBLK, 

FFSU0 

01372 

1151 

INTRB, 

INTERB-1 

01373 

4600 

FFOUTL, 

ffqut 

01374 

7520 

M260 , 

-260 

01375 

7762 

MDECPT , 

*16 

01376 

2366 

ABSVLL, 

absval 


/YES-IF COUNT«0, REPLACE WITH CR 
/NO-TURN OF ZERO REPLACE 
/NEXT 

/YES-GET FORMAT FLAG 
/ARE WE IN E FORMAT? 

/NO-PROCEEO TO CHECK ZERO REPLACE FLAG 

/HAS DECIMAL POINT BEEN SEEN YET? 
/NO-THIS ZERO STAYS, SO COUNT IT 
/YES-THIS IS THE ZERO BEFORE THE POINT 
/SO REPLACE IT WITH AN ALTMODE 
/HAS A PERIOD BEEN SEEN YET? 

/YES-THIS ZERO STAYS 
/GET ZERO REPLACE FLAG 
/IS IT ON? 

/YES-DON«T REPLACE ZEROES 
/NO-REPLACE THIS ZERO WITH A CR 
/YES-REPLACE 0 WITH CR 
/NEXT CHAR 

/SET DECIMAL POINT SEEN FLAG 

/-I IN AC 

/GET CHAR COUNT 

/IS IT 1 (, WAS FIRST COUNTED CHAR)? 
/NQ-DON*T REPLACE , WITH CR 
/YES-REPLACE , WITH CR 
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1400 PAGE 


/load SUBSCRIPT 1 


01400 

4532 

LSI I r 

JMS 

I 

FACSAL 

/PRESERVE F AC 

01401 

4620 


JMS 

I 

argprl 

/GET ARG POINTER INTO AC 

01402 

4534 


JMS 

I 

FGETL 

/LOAD ARG INTO FAC (SKIPS NEXT INST ON RETURN) 

01403 

4532 

LSUB1 1 1 

JMS 

I 

facsal 

/SAVE THE FAC 

01404 

4514 


JM5 

I 

INTL 

/GET INT (FAC) 

01405 

3033 


OCA 

SI 


/SET RESULT AS SUBSCRIPT 1 

01406 

4533 


JMS 

I 

FACREL 

/RESTORE FAC 

01407 

5513 


JMP 

I 

ILOQPL 

/NEXT INSTRCUTION 


/LOAD SUBSCRIPT 2 


0i«i0 

4532 

LS2I# JMS I FACSAL 

/PRESERVE FAC 

01411 

4620 

JMS I ARGPRL 

/GET ARG POINTER INTO AC 

01412 

4534 

JMS I FGETL 

/LOAD ARG INTO FAC (SKIPS NEXT INST ON RETURN) 

01413 

4532 

LSUB2I, JMS I FACSAL 

/SAVE THE FAC 

01414 

4514 

JMS I INTL 

/GET INT (FAC) 

01415 

3034 

OCA $2 

/SET RESULT AS SUBSCRIPT 2 

01416 

4533 

JMS I FACREL 

/RESTORE THE FAC 

01417 

01420 

5513 

0307 

JMP I ILOOPL 
ARGPRLf ARGPRE 

/BACK TO ILOOP 
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/JMP DISPATCH FOR FUNC1 CALLS 


01421 

4622 

JM$I4, JMS I , ♦ 1 

/CALL FOR CANNED FUNCTION SET 1 



/JUMP TABLE FOR FUNCTION CALL 1 


01422 

4200 

FFATN 

/FUNCTION BITS* 

0 

01423 

4053 

FFCOS 

/ 

1 

01424 

4120 

FFEXP 

/ 

2 

01425 

3477 

EXPON 

/ 

3 

01426 

3400 

INT 

/ 

4 

01427 

4263 

fflog 

/ 

5 

01430 

3632 

SGN 

/ 

6 

01431 

4000 

FFSIN 

/ 

7 

01432 

4543 

RND 

/ 

10 

01433 

3646 

FROOT 

/ 

/II 



/JUMP FOR FUNC2 DISPATCH 


01434 

4635 

JMSI5, JMS I .♦! 

/JMS OFF THE SET 2 TABLE 



/JUMP TABLE FOR FUNCTION SET 2 


01435 

3407 

ASC 

/FUNCTION BITS* 

0 

01436 

3400 

CHR 

/ 

1 

01437 

3600 

DATE 

/ 

2 

01440 

3414 

len 

/ 

3 

01441 

4400 

POS 

/ 

4 

01442 

4266 

SEG 

/ 

5 

01443 

3422 

STR 

/ 

6 

01444 

3462 

V*L 

/ 

7 

01445 

4013 

ERRORR 

/ 

10 



/ERRORR MUST BE FUNCTION #10, ELSE "ERROPC" MUST CHANGE 

01446 

4000 

TRACE 

/ 

11 

01447 

3677 

TPRINT 

/ 

12 



/TPRINT MUST BE #12 

OR TRHOOK+i MUST CHANGE 



/DISPATCH FOR FUNC5 

CALLS 


01450 

5651 

JMPFIL, JMP I ,tl 

/CALL FORR FILE 

MANIPULATING FUNCTIONS 



/JUMP TABLE FOR FILE 

FUNCTIONS 


1 ,! '(1 01451 

3600 

CHAIN 

/FUNCTION BITS* 

0 

01452 

3405^> 

CLOSE 

/ 

1 

^#01453 

400 1 ^ 

OPENAF 

/ 

2 

Vt$t01454 

4000 .r 

qpenav 

/ 

3 

>01455 

4004- 

opennf 

/ 

4 

U 01456 

4003- 

OPENN V 

/ 

5 

(>01457 

3 ^ 4 . 37 yt FSTOP 

/INT, EXIT 

6 



/ROUTINES TO CALL ERROR ROUTINE BY FAKING 

A FUNC2 CALL TO FUNCT; 

01460 

0000 

ERRDXS, 



01461 

7300 

CLANCLL 

/FLUSH 



/OS/8 

BASIC RUMTIME 

SYST^ 


PAL8-V7 

10/24/72 PA(,E 

23-1 

01<U»2 

1327 

TAD 

lNu>07 




01483 

3064 

OCA 

in&av 

/FAKE 

A FUNC CALL TO 

FUNC2 #10 

01484 

5272 

JMP 

FUNCfeJt 





/ERROR CAUL FOR USER FUNCTIONS-USER FUNCTION SHOULD "JUS I IAL" 


01485 4280 IA 


JMS ERRDIS 
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/FUNCTION OVERLAY DRIVER 


01468 

4510 

FUNC4I, 

JMS I PRINT 

01467 

5266 


JMP .-1 

01470 

7001 


I AC 

01471 

7001 

FUNC5I, 

IAC 

01472 

7001 

FUNC2I $ 

I AC 

01473 

3040 

FUNC1 1 , 

OCA TEMPI 

01474 

6201 


CDF 

01475 

1040 


TAO TEMPI 

01476 

7041 


CIA 

01477 

1330 


TAD OVRLAY 

01500 

7650 


SNA CLA 

01501 

5316 


JMP OVDNE 

01502 

1040 


TAD TEMPI 

01503 

1326 


TAD OATADI 

01504 

3007 


DCA TEMP2 

01505 

1407 


TAD I TEMP2 

01506 

3312 


DCA OV ADD 

01507 

4727 


JMS I L7607 

01510 

0500 


0500 

01511 

3400 


3400 

01512 

1512 

OVAOO, 

• 

01513 

4516 

OE, 

JMS I ERROR 

01514 

1040 


TAD TEMPI 

01515 

3330 


DCA OVRLAY 

01516 

1040 

OVONE, 

TAD TEMPI 

01517 

1335 


TAD JMSTAD 

01520 

3322 


DCA .*2 

01521 

4517 


JMS I FBITS 

01522 

1522 


• 

01523 

3324 

FUJUMP, 

DCA .+1 

01524 

1524 


« 

01525 

5513 


JMP I ILOOPl 

01526 

1531 

QATADI, 

ARITHA 

01527 

7607 

L7607, 

7607 

01530 

0000 

ovrlay, 

0 


/PURGE TTY RING BUFFER 
/BEFORE CALLING USER FUNCTION 
/LOOK FOR OVERLAY FLAG*3 
/LOOK FOR OVERLAY FL AG«2 
/LOOK FOR OVERLAY FLAG* 1 
/LOOK FOR OVERLAY FLAG*0 
/OF TO THIS FIELD 
/GET OVERLAY # AGAIN 
/NEGATE 

/COMPARE AGAINST OVERLAY FLAG 

/IS THE ONE WE WANT ALREADY RESIDENT? 

/YES-JUST JUMP TO FUNCTION 

/NO-GET NUMBER OF OVERALY DESIRED 

/USE AS OFFSET TO BUILD STARTING BLOCK TAD 

/POINTS TO PROPER STARING BLOCK # 

/GET STARTING BLOCK FOR THIS OVERLAY 
/PUT IN DRIVER CALL 
/CALL SYSTEM HANDLER 
/OVERLAY 3400-4800 

/STARTING BLOCK # OF OVERLAY 
/I/O ERROR 

/CHANGE RESIDENT FLAG 
/FUNCTION # 

/BUILD A TAD OF THE PROPER DISPATCH JMS 
/PUT IN LINE 

/GET # OF FUNCTION DESIRED 
/BUILD JUMP OFF JUMP TABLE 
/PUT JUMP IN LINE 
/GO TO DESIRED FUNCTION 
/DONE 


/# OF CURRENTLY RESIDENT OVERLAY 
/0* ARITHMETIC, l *STRING,2*FILE,3«USER 


/OVERLAY TABLE-CONTAINS STARTING BLOCK » fll s ystem OVERLAYS 
/INITIALIZED BY LOADER-f- OrCU @ *3,3./ 

7 P 


01531 

1531 

ARITHA, 

• 

/STARTING 

BLOCK 

OF 

ARITHMETIC OVERLAY 

01532 

1532 

STRNGA , 

* 

/STARTING 

BLOCK 

OF 

STRING OVERLAY 

01533 

1533 

FILEPA, 

* 

/STARTING 

BLOCK 

OF 

FILE OVERLAY 

01534 

1534 

USR A , 

« 

/STARTING 

BLOCK 

OF 

USER FUNCTIONS 

01535 

1736 

JMSTAD, 

TAD I TADTAB 





01536 

1421 

TAOTAB, 

JMSI4 





01537 

1434 


JMSI5 





01540 

1450 


JMPFIU 
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1557 


01541 


JMSUSR 
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/CALL. F OR RESIDENT FUNCTION 


01542 

4517 

FUNC3I, JMS I FBITS 

/ISOLATE FUNCTION # 


01543 

1345 

TAD JMSI7 

/MAKE A JUMP 

OFF JUMP 

TABLE 

01544 

5323 

JMP FUJUMP 

/PUT THE JUMP 

IN LINE 

AND EXECUTE 

01545 

4746 

JMSI7 , JMS I .♦! 






/JUMP TABLE FOR RESIDENT FUNCTIONS 



01548 

2366 

ABSVAL 

/FUNCTION BITS* 0 


01547 

2517 

COMMA 

/ 

1 


01550 

0373 

CRFUNC 

/ 

2 


01551 

0240 

ILOOPF 

/ 

3 


01552 

1757 

TAB 

/ 

4 


01S53 

1770 

PNT 

/ 

5 


01554 

0574 

USE 

/ 

6 



1557 

*1557 /****N f 0 f *★** 




/THIS TABLE CANNOT BE MOVEDUU 
/JUMP DISPATCH FOR USER ROUTINES 


01557 

4760 

JM5USR, JMS I ,*1 





/JUMP TABLE FOR USER 

FUNCTIONS 


01580 

0240 

ILOOPF 

/USER FUNCTION 

1 

01581 

0240 

ILOOPF 

/ 

2 

01562 

0240 

ILOOPF 

/ 

3 

01563 

0240 

ILOOPF 

/ 

4 

01564 

0240 

ILOOPF 

/ 

5 

01565 

0240 

ILOOPF 

/ 

6 

01566 

0240 

ILOOPF 

/ 

7 

01567 

0240 

ILOOPF 

/ 

8 

01570 

0240 

ILOOPF 

/ 

9 

01571 

0240 

ILOOPF 

/ 

10 

01572 

0240 

ILOOPF 

/ 

11 

01573 

0240 

ILOOPF 

/ 

12 

01574 

0240 

ILOOPF 

/ 

13 

01575 

0240 

ILOOPF 

/ 

14 

01576 

0240 

ILOOPF 

/ 

15 

01577 

0240 

ILOOPF 

/ 

16 
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1600 


PAGE 





/SPECIAL 

, FUNCTIONS 



01800 

4517 

SPFUNC t 

JMS I FBITS 

/ISOLATE FUNCTION BITS 


01801 

1204 


TAD JMPIfe 

/MAKE A JUMP OFF SPECIAL 

FUNCTION TABLE 

01602 

3203 


DC A f +l 

/PUT IN LINE 


01603 

1603 


• 



01604 

5605 

JMPI6, 

JMP I 

/JUMP TO SPECIAL FUNCTION 

ROUTINE 



/SPECIAL 

. FUNCTION JUMP 

TABLE 


01605 

2054 


SETF 

/SET FSWITCH 

0 

01606 

2342 


FRANDM 

/RANDOMIZE 

1 

01607 

0561 


FSTDPN 

/LEAVE INTERPRETER 

2 

01610 

2400 


SRLIST 

/STRING READ FROM DATA LIST 3 

01611 

2001 


CSFN 

/SET FILE # TO TTY 

4 

01612 

6556 


RDUIST 

/READ DATA LIST 

5 

01613 

2324 


AMODE 

/SWITCH TO A MODE 

6 

01614 

2323 


SSMODE 

/SWITCH TO S MODE 

7 
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111633 ll*f_£2^ 

01634 7450 

01635 5246 

01636 7500 . 


/SUBROUTINE UNSFIX-UNSIGNEQ INTEGER FIX ROUTINE. FIXS A POSITIVE 12 MIT 
/NUMBER OUT OF FaC MANTISSA AND LEAVES RESULT IN AC. RESULT IS AM UNSIGNED, 
/12 BIT INTEGER 


/LON MANTISSA 

/HI BIT OF LO MANTISSA TO LINK 


/HIGH MANTISSA 
/IS NUMBER POSITIVE? 
/NO-BOOIJ 1 

/SHIFT THE SIGN BIT OUT AND 
/MAKING lgjaiTS JJF MANTJSSA 
/GET EXPONENT 
/IS X>1? 

/.NO -FIX IT TO 0 ^ 

/ yes-iTEt exPWenT 

/SET BIN ARY POINT AT 12 

''/UTTRk ALRt a6y? 


01615 

0000 

UNSFIX 

, 0 

01616 

6201 


CDF 0 

01617 

1046 


TAD LORD 

01620 

7104 


CLL RAL ‘ 

01621 

7200 


CLA 

01622 

1045 


TAD HORD 

01623 

7510 


SPA 

01624 

4516 

FM, 

JMS I ERROR 

01625 

7004 


RAL 

01626 

3045 


DC A HORD __ 

01627 

1044 


TAD ESP 

01630 

7750 


SPA SNA CLA 

01631 

ifeis 

_JMP_J»li5iSPU 

01632 

1044 


TAD EXP 


THE MANTISSA OVER, 

AND wtmapv p oint BE£DRh H IT PI 


m hi a 

SNA 

JMP UNSOUT 
SMA 


01640 

01641 

0 1 642 

01643 
JJ6 

3044 

1045 

7110 

2044 

-5242^ 

UNSLP, 

"DCa txiA 

TAD HORD 

CLL RAR 

ISZ EXP 

JMP UNSLP 

01645 

5615 


JMP 

I UNSFIX 

01646 

1045 

UNSOUT# 

TAD 

HOKP 

01647 

k 

5615 


JMP 

I UNSFIX 



/RESTORE 


01650 

0000 

RESTI, 

0 


01651 

4664 


JMS 

I WRBLKL 

01652 

7240 


CLA 

CMA 

01653 

1570 


TAD 

I WORDS 

01654 

3565 


OCA 

I WOR02 

01655 

1564 


TAD 

I WORQ1 

01656 

3566 


OCA 

I W0RP3 

01657 

1563 


TAD 

I WORD0 

01660 

0265 


AND 

K 7435 

01661 

3563 


OCA 

I WORD0 

01662 

4552 


JMS 

I NEXREL 

01663 

5650 


JMP 

I RESTI 

01664 

3350 

HRBLKLr 

MRBLK 

01665 

7435 

K7435, 

7435 



/YES 

/NO-IS 


# TOO BIG? 


/NO-STORE COUNT 
/HI MANTISSA 
/SCALE RIGHT 
/DONE? 

-/NO 





/YES-RETURN 
/ANSWER IN AC 




/NO-WRITE CURRENT BUFFER 
/-I 

/STARTING BLOCK-1 
/SET CURRENT BLOCK * 

/GET BUFFER ADDRESS 

/USE IT TO RESET READVWRITE POINTER 

/GET HEADER WORD 

/CLEAR EOF BIT, BUFFER WRITTEN BIT, AND CHAR 

/READ FIRST BLOCK INTO BUFFER 
/DONE 
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/SUBROUTINE STFIND-WHEN CALLED, IF LINK«1 STRING ARRAY TABLE IS 
/USED, IF LI NK »0 STRING SYMBOL TABLE IS USED, RETURNS WITH AC SET 
/TO CDF OF OPERANO STRING, STRPTR POINTING TO THE FIRST WORD 
/IN THE STRING, AND THE MAX LENGTH OF THE STRING IS IN STRMAX. ALSO, 
/THE ACTUAL LENGTH OF THE STRING IS IN STRCNT 


014-66 

0000 

STF IND t 

0 



01667 

7430 


SZL 


/IS THIS AN ARRAY INST? 

01670 

5347 


JMP SAFIND 

/YES-POINTER IS INTO ARRAY TABLE 

01671 

1064 


TAD 

INS AV 

/GET INST AGAIN 

01672 

0101 


AND 

K0377 

/ISOLATE OPERAND POINTER 

01673 

3040 


DCA 

TEMPI 

/NO-SAVE OPERANO POINTER 

01674 

1040 


TAD 

TEMPI 

/N 

01675 

7104 


CLL 

RAL 

/2N 

01676 

1040 


TAD 

TEMPI 

/3N (3 WORDS/ENTRY) 

01677 

1023 


tad 

STSTRT 

/ADO BASE ADR OF STRING TABLE 

01700 

3012 

STCOM, 

DCA 

XR2 

/POINTER TO THIS ENTRY IN STRING TABLE 

01701 

1701 

STOF 9 

• 


/DF TO THAT OF SYMBOL TABLES (SET BY START) 

01702 

1412 


TAD 

I XR2 

/GET POINTER TO STRING 

01703 

3072 


DCA 

STRPTR 


01704 

1412 


TAD 

I XR2 

/GET CDF FOR OPERAND STRING 

01705 

3062 


DCA 

TEMPli 

/SAVE 

01706 

1412 


tad 

I XR2 

/GET MAX LENGTH OF STRING 

01707 

3070 


DCA 

STRMAX 

/SAVE 

01710 

7420 


SNL 


/ARRAY ELEMENT? 

01711 

5337 


JMP SCDF 

/NO-SKIP THIS SUBSCRIPT CALCULATION 

01712 

1033 


TAD 

$1 

/GET SUBSCRIPT 

01713 

3015 


DCA 

BABS 

/SET UP 12 BIT COMPARE 

01714 

1412 


TAD 

I XR2 

/GET DIMENSION 

01715 

4405 


JMS 

I NUMCOM 

/IS $1>DIM£NSI0N? 

01716 

5756 


JMP I SUBERL 

/YES 

01717 

1070 


TAO 

STRMAX 

/NO-GET ELEMENT LENGTH 

01720 

7041 


CIA 


/MAKE POSITIVE 

01721 

7101 


CLL 

I AC 

/ROUND OFF TO NEAREST MULTIPLE OF 2 

01722 

7110 


CLL 

RAR 

/ DIVIDE BY TWO (C0UNT/2aW0RD COUNT) 

01723 

7101 


CLL 

I AC 

/ADO A WORD FOR HEADER 

01724 

3042 


DCA 

TEMP3 

/# OF WORDS IN EACH ARRAY ELEMENT 

01725 

1033 


tad 

SI 

/GET SUBSCRIPT 

01726 

4521 


JMS 

I MPYLNK 

/81*ELEMENT LENGTH (ASSUMES LINK UNCHANGED ON RETURN) 

01727 

1072 


TAD 

STRPTR 

/ARRAY OFFSET+POINTER TO A(0) 

01730 

3072 


DCA 

STRPTR 

/FINAL STRING POINTER 

01731 

7004 


ral 


/CARRY TO BIT U 

01732 

1050 


tad 

TEMP6 

/ADD TO ACCUMLATED OVERLAPS FROM MULTIPLY 

01733 

7106 


CLL 

rtl 

01734 

7004 


ral 


/PUT OVERLAP # INTO BITS 6-8 

01735 

1062 


TAD 

TEMP 1 1 

/ADO TO CDF IF NECESSARY 

01736 

3062 


DCA 

TEMP 1 1 

/SAVE AGAIN 

01737 

1062 

SCOFf 

TAD 

TEMPU 

/GET DF OF STRING 

01740 

3341 


OCA 

.♦1 

/PUT IN LINE 

01741 

1741 


t 


/DF TO STRING FIELD 

01742 

1472 


TAD 

I STRPTR 

/GET STRING LENGTH 

01743 

3071 


DCA 

STRCNT 

/ACTUAL LENGTH OF STRING OPERAND 

01744 

1062 


TAO 

TEMP 1 1 

/CDF TU UPERAND IN AC 

01745 

6201 


CDF 
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01746 5666 


JMP I STFINO /RETURN 


01747 

1064 

SAFIND, TAD INSAV 

01750 

0355 

AND K0037L 

01751 

7106 

CLL RTL 

01752 

1024 

TAD SASTRT 

01753 

7120 

STL 

01754 

5300 

JMP STCOM 

01755 

0037 

K0037L* 0037 

01756 

0623 

SUBERLr SU 



/TAB FUNCTION 

01757 

0000 

TAB, 0 

01760 

4514 

JMS I INTL 

01761 

7041 

CIA 

01762 

1573 

TAD I WORD10 

01763 

7001 

I AC 

01764 

7500 

SMA 

01765 

5513 

JMP I ILOOPL 

01766 

5767 

JMP I SLOVEL 

01767 

2547 

SLOVELf SLOVER 


/GET INST 

/ISOLATE OPERAND POINTER 
/4N (4 WORDS/ENTRY) 

/USE STRING ARRAY TABLE 
/SET LINK FOR ARRAY INST 
/RETURN TO SUBROUTINE MAINLINE 


/FIX X TO INTEGER 
/NEGATE 

/COMPARE DESIRED COLUMN TO REAL COLUMN 
/BUMP BY 1 (WORD 7«COL #-1) 

/IS X>»CURRENT COLUMN? 

/YES-THEN DO NOTHING 

/NO-AC CONTAINS # OF SPACES NEEDED TO REACH DESIRED COLUMN 


/PNT FUNCTION 

/VALUE OF X SENT TO TTY 


01770 

0000 

PNT, 

0 




01771 

4514 


JMS 

I intl 

/FIX X 


01772 

0376 


AND 

K0177 

/STRIP 

TO 7 ASCII BITS 

01773 

1077 


TAD 

K0200 

/FORCE 

CHANNEL 8 

01774 

4512 


JMS 

I PUTCHL 

/PUT IN 

file buffer 

01775 

5513 


JMP 

I ILOOPL 

/DONE 


01776 

0177 

K0177, 

177 
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2000 


PAGE 




/ROUTINE SEN-ROUTINE 

TO RESET POINTERS IN PAGE ZERO FILE POINTER 



/AREA 

TO REFLECT A CHANGE IN THE CURRENT FILE NUMBER 

02000 

4514 

SFN | 

JMS I INTL 

/FIX FAC TO GET FILE * 

02001 

3044 

CSFN, 

OCA EXP 

/IF ENTRY IS HERE, FILE C TT Y 5 

02002 

1044 


TAD EXP 

/GET NUMBER AGAIN 

02003 

1231 


TAD KMtt 

/IS RESULT A LEGAL FILE #? 

02004 

7740 


SMA SZA CLA 


02005 

451b 

FN , 

JMS I ERROR 

/NO-ERROR 

0200b 

1044 


TAD EXP 

/YES-GET FILE » 

02007 

31b2 


DC A ENTNQ 

/SAVE AS CURRENT FILE » 

02010 

1044 


TAD EXP 


02011 

1234 


TAO IOTPTR 

/USE AS INDEX INTO TABLE OF MASTER POINTERS 

02012 

3007 


DCA TEMPS 

/POINTS TO FIRST WORD OF EACH I/O TABLE ENTRY 

02013 

1407 


TAD I TEMPS 

/GET POINTER TO FIRST WORD OF I/O TABLE ENTRY WE WANT 

02014 

3 1 b3 


DCA WOKD0 

/PUT IN WORK AREA 

02015 

1107 


TAD M14 

/w£ HAVE TO CHANGE IS POINTERS 

0201b 

3007 


DCA TEMPS 


02017 

1232 


TAD WORD0A 

/POINTER TO LAST ENTRY MAOE 

02020 

3011 


DCA XR1 


02021 

1233 


TAD WORD 1 A 

/POINTER TO NEXT ENTRY TO BE BUILT 

02022 

3012 


OCA XR2 


02023 

1411 

sfnlp, 

TAD I XR1 

/EACH ENTRY IS BUILT 

02024 

7001 


I AC 

/BY ADDING 1 TO THE PREVIOUS ENTRY 

02025 

3412 


DCA I XR2 


0202b 

2007 


ISZ TEMPS 

/DONE? 

02027 

5223 


JMP SFNLP 

/NO 

02030 

5513 


JMP I ILOOPL 

/YES-NEW TABLE IS NOW BUILT 

02031 

7774 

KM4 f 

-4 


02032 

01b2 

WORQ0A 

, WORD0-1 


02033 

0 1 b3 

InOROI A 

, WORD1-1 


02034 

2035 

IOTPTR 

, IOTAB 


02035 

bb7 7 

IOTAb, 

ttyf 

/POINTtRS TO THE FIRST WORD IN EACH OF THE FIVE 

0203b 

b 7 1 4 


FILE1 

/I/O table entries 

02037 

b73i 


FILES 


02040 

b746 


FILE3 


02041 

b7b3 


FILE4 
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/FOR-LOOP JUMP ROUTINE 


02042 

7300 

JFORf 

CIA cll 


02043 

1045 


TAD HORD 

/GET HIGH MANTISSA 

02044 

7450 


SNA 

/IS FAC»0? 

02045 

5653 


JMP I JFAILL 

/YES-00 NOT JUMP 

02046 

1260 


TAD FSWITC 

/ADD FSWITCH 

02047 

7710 


SPA CLA 

/ARE SIGN 8IT«FSWITCH? 

02050 

5653 


JMP I JFAILL 

/NO-DO NOT JUMP 

02051 

5652 


JMP I SUCJML 

/YES-DO JUMP 

02052 

0421 

SUCJML* 

SUCJMP 


02053 

0413 

JFAILL, 

jfail 




/ROUTINE 

: TO INITIALIZE 

FSWITCH 

02054 

7130 

SETF, 

CLL CML RAR 

/ 4000 IN AC 

02055 

0045 


AND HORD 

/ISOLATE SIGN OF MANTISSA 

02056 

3260 


OCA FSWITC 

/STORE IN FSWITCH 

02057 

5513 


JMP I ILOOPL 

/DONE 

02060 

0000 

FSWITC, 

0 
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/STRING COMPARE 


02061 

3346 

SCOMP , 

DC A OCDF 

/OF TO QPERNAD IN LINE 

02062 

3063 


DC A MODESW 

/RETURN IN AMODE 

02063 

4537 


JMS I FCIR 

/INITIALIZE FAC TO 0 

02064 

1032 


TAD STRLEN 

/LENGTH OF STRING IN SAC 

0206S 

1071 


TAD STRCNT 

/length of operand 

02066 

7650 


SNA CLA 

/ARE THEY BOTH ZERO? 

02067 

5513 


JMP I ILOOPL 

/ YES^THEY ARE EQUAL#SO RETURN KITH FAC»0 

02070 

7100 


CLL 


02071 

1032 


TAD STRUEN 

/nq*length of SAC 

02072 

7650 


SNA CLA 

/IS IT ZERO? 

02073 

5326 


JMP SNEO-1 

/yes-then they are not equal 

02074 

1071 


TAD STRCNT 

/LENGTH OF OPERAND 

02075 

7650 


SNA CLA 

/IS IT EMPTY 

02076 

5327 


JMP SNEQ 

/YES-THEY are not equal 

02077 

1111 


tad sacptr 

/POINTER INTO SAC 

02100 

7101 


CLL I *C 


02101 

4527 


JMS I LDHINL 

/INIT LOH 

02102 

4557 


JMS I LDHRST 

/TO LOAD FROM SAC 

02103 

4366 


JMS PTRBMP 

/ISZ STRPTR OVER COUNT WORD 

02104 

3042 


DCA SWITCC 

/INIT LDHPST 

02105 

4343 

ldhc» 

JMS LDHPST 

/HALF LOAD 

02106 

3007 


DCA TEMP2 

/AND SAVE 

02107 

4531 


JMS I LDH 

/GET CHAR FROM SAC 

02110 

7141 


CIA CLL 

/NEGATE IT 

02111 

1007 


TAD TEMP2 

/AND COMPARE TO OPERAND CHARACTER 

02112 

7640 


SZA CLA 

/ARE THEY EQUAL? 

02113 

5327 


JMP SNEQ 

/NONRETURN WITH FAC SIGN SET APPROPRIATELY 

02114 

2071 


ISZ STRCNT 

/MORE OPERAND CHARS? 

02115 

5332 


JMP SACCHK 

/YES-SEE IF SAC EMPTY 

02116 

2032 

SAC40C, 

ISZ STRLEN 

/MORE CHARS IN SAC? 

02117 

7410 


SKP 

/YES 

02120 

5513 


JMP I ILOOPL 

/STRINGS ARE EQUAL»RETURN WITH 0 FAC 

02121 

4531 


JMS I LDH 

/GET CHAR FROM SAC 

02122 

7100 


CLL 


02123 

1106 


TAO KM40 

/COMPARE TO SPACE 

02124 

7650 


SNA CLA 

/IS IT A SPACE? 

02125 

5316 


JMP SAC40C 

/YES-CHECK NEXT CHAR 

02126 

7020 

SNEQi t 

CML 


02127 

7270 

SNEQf 

CLA CMA CML RAR 


02130 

3045 


DCA HORD 

/SET SIGN BIT OF MANTISSA TO REFLECT RESULTS OF COMPARE 

02131 

5513 


JMP I ILOOPL 


02132 

2032 

S ACCHK t 

ISZ STRLEN 

/SAC EMPTY? 

02133 

5305 


JMP LDHC 

/NQ*CQMPARE NEXT TWO CHARS 

02134 

4343 

STC40C / 

JMS LDHPST 

/YES-GET CHAR FROM OPERAND 

02135 

1106 


TAD KM40 

/COMPARE TO SPACE 

02136 

7640 


SZA CLA 

/IS IT A SPACE? 

02137 

5326 


JMP SNEQI 

/NO-STRINGS AREN'T EQUAL 

02140 

2071 


ISZ STRCNT 

/YES-MORE CHARS? 

02141 

5334 


JMP STC40C 

/YES-CHECK THEM 

02142 

5513 


JMP I ILOOPL 

/N0*STRINGS ARE EQUAL-RETURN WITH FACs0 
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/ROUTINE TO GRAB l CHAR AT A TIME FROM OPERAND STRING 


02143 

0000 

LDHPST t 

0 


02144 

1042 


T AO SWITCC 

/GET HALF SWITCH 

02145 

7110 


CLL RAR 

/PUT IN LINK 

02146 

2146 

OCDFi 

• 

/OF TO OPERAND 

02147 

1472 


TAD I STRPTR 

/GET TWO CHARS FROM STRING 

02150 

6201 


CDF 


02151 

7420 


SNL 

/RIGHT HALF? 

02152 

4544 


JMS I BSWL 

/NO-SWAP BYTES 

02153 

0075 


AND K00T7 

/ISOLATE RIGHT CHAR 

02154 

3007 


DCA TEMP2 

/SAVE 

02155 

1042 


TAD SWITCC 


02156 

7110 


CLL RAR 

/HALFWORD SITCH TO LINK 

02157 

7430 


SZL 

/RIGHT HALF? 

02160 

4366 


JMS PTRBMP 

/BUMP STRING POINTER 

02161 

7620 


snl cla 

/FLIP HALFWORD SWITCH 

02162 

7121 


CLL CML I AC 

/(LEAVE LINK*!) 

02163 

3042 


DCA SWITCC 


02164 

1007 


TAD TEMP2 

/GET CHAR AGAIN 

0216S 

5743 


JMP I LDHPST 



0042 

SWITCC 8 

TEMP3 




/SUBROUTINE TO BUMP STRPTR AND WATCH FOR FIELD OVERLAP 

02166 

0000 

PTRBMP* 

0 


02167 

2072 


ISZ STRPTR 


02170 

5766 


JMP I PTRBMP 

/NO-SKIPJRETURN 

02171 

1346 


TAD OCDF 

/SKIP MEANS WE MUST INCREMENT 

02172 

1073 


TAD K0010 


02173 

3346 


DCA OCDF 


02174 

5766 


JMP I PTRBMP 



02175 

7755 

/FLOATING POINT CONSTANT USED BY ASCOUT 

AP000 1 i 7755 /, 000001 

02176 

2061 

2061 

02177 

5734 

5734 
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2200 PAGE 


/STRING CONCATENATE 


02200 

3637 

SCONl, 

DCA I LOHCQF 

02201 

1071 


TAD STRCNT 

02202 

7650 


SNA CLA 

02203 

5513 


JMP I ILOQPL 

02204 

1072 


TAD STRPTR 

02205 

7101 


CLL I AC 

02206 

4527 


JMS I ldhinl 

02207 

1032 


TAD STRLEN 

02210 

7450 


SNA 

02211 

5216 


JMP SACEM 

02212 

7130 


CLL CML RAR 

02213 

7440 


SZA 

02214 

7041 


CIA 

02215 

7420 


SNL 

02216 

7001 

5ACEM, 

I AC 

02217 

1111 


TAD SACPTR 

02220 

4526 


JMS I STHINL 

02221 

4560 


JMS I STHRST 

02222 

4531 

SEGCOM, 

JMS I LDH 

02223 

4530 


JMS I STH 

02224 

7240 


CLA CMA 

02225 

1032 


TAD STRLEN 

02226 

3032 


DCA STRLEN 

02227 

1032 


TAD STRLEN 

02230 

1236 


TAD K 1 1 0 

02231 

7710 


SPA CLA 

02232 

4516 

SC, 

JMS I ERROR 

02233 

2071 


ISZ STRCNT 

02234 

5222 


JMP SEGCOM 

02235 

5513 


JMP I ILOOPL 

02236 

0110 

K110, 

110 

02237 

2647 

IDHCOF, 

LOHDF 


/DF FOR LDH 
/OPERANDS? 

/YES-THEN THERE IS NOTHING TO DO 
/ ADDR OF OPERAND 
/ ADQR OF OPERAND 1ST CHARACTER 
/INITIALIZE LDH TO PULL FROM OPERAND 
/# OF CHARS IN AC 
/SAC EMPTY? 

/ YES»CONCATE ESSENTIALLY IS A LOAD 
/DIVIDE BY TWO 


/USE AS DISPLACEMENT OFF START OF SAC 

/INITIALZE STH TO SAC+STRLEN/2 

/SAC IS IN FLO 0 

/GET CHAR FROM OPERAND 

/PUT CHAR IN SAC 

/•I 

/"BUMP" STRING COUNT FOR SAC 


/IS SAC FULL YET? 

/ YE$»TRUNCAT ION ERROR 

/NO. MORE CHARS LEFT IN OPERANO? 

/YES-GO GETTEM 

/NO*DONE 


/POSITIVE WORD COUNT 


/ROUTINE TO SIMULATE HARDWARE BYTE SWAP 



02240 0000 BSWPi 0 

02241 7112 CLL RTR 

02242 7012 RTR 

02243 7012 RTR /LEFT HALF NOW IN RIGHT HALF 

02244 3311 DCA TEMP12 /SAVE 

02 245 131L — T AP TEMPI? 

g 0075 AND K0077 /ISOLATE LEFT HALF 




02247 

02250 

02251 


1311 

7010 

5640 


TAO TEMP12 /DO A PARTIAL SHIFT OF BITS 6-11 LEFT ONE 

RAR /MOVE INTO POSITION 

JMP I BSWP 
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02252 

1563 

/ROUTINE TO 
E0F8ET, TAD 

SET EOF 

I WORD0 

02253 

7112 

CLL 

RTR 

02254 

7120 

CLL 

CML 

02255 

7006 

rtl 


02256 

3563 

DCA 

I WORD0 

02257 

5513 

JMP 

I ILOOPL 


IT IN I/O ENTRY 
/HEADER 

/EOF BIT TO LINK 
/SET LINK 

/PUT LINK IN EOF BIT 
/STORE IN I/O TABLE ENTRY 
/EOF BIT SET-ABORT TO ILOOP 


/SUBROUTINE MPY- 12 BIT BY 12 BIT MULTIPLY, MULTIPLIES THE CONTENTS 
/OF TEMP3 BY THE CONTENTS OF THE AC, LEAVING THE HI RESULT IN TEMPS 
/AND THE LOW RESULT IN THE AC 



/ mmmmm* 

0226/95 0000 MPY , 

i 

0 


0226tff 

OCA 

TEMP10 

0226/T 3050 

DCA 

TERP6 

0226X& 11 Hrt 

TAD 

M24 

0226 JT* 3047 

DCA 

TEMP5 

022*jfo 1042 MP12LP, 

TAD 

TEMP3 

022>6/ 7010 

RAR 


0226-7'2-3042 

OCA 

TEMP3 

jaaajai.1050 

TAO 

TEMP6 

, 022Hr^7420 

SNL 


/ 02£Wf 5*tSJ*d 

JMP 

.♦3 

022**£ 7100 

CLL 


024«7 1 04+jV 

TAD 

TEMP10 

022*5^7010 

RAR 


0220*1 3050 

DCA 

TEMP6 

02m>- 2047 

ISZ 

TEMPS 

02*00» 52«PO 

JMP 

MP12LP 

02JHH*f 1042 

tad 

TEMP3 

020Mf 7010 

RAR 


02-00% 5660>I 

JMP 

I MPY 


/ 



/ 1 2 BIT MULTIPLY USED TO FIND (DIMl+t)*S2 


/LORD OF (DIM1+1 ) *S2 IN AC 
/HQRO OF (DIMl + n*S2 IN TEMP6 
/RETURN 



2260 TEMP13»MPY 


/ROUTINE TO CHECK IF FILE IDLE 


02304 

0000 

IDLE, 

0 


02305 

1567 


TAD 

2 W0R04 

02306 

7650 


SNA 

CLA 

02307 

4516 

FI, 

JMS 

Z ERROR 

02310 

5704 


JMP 

I IDLE 


/GET HANDLER ENTRY 
/IS IT EMPTY? 

/YES-USER TRIED TO DO SOMETHING TO AN UNOPEN FILE 
/NO-RETURN 
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/ROUTINE TO READ NEXT WORD IN DATALIST INTO AC 


TEMP12, 


02311 

0000 

DLREAOf 

0 


02312 

1016 


TAO DLPTR 

/DATA LIST POINTER 

02313 

3015 


DCA BABS 

/SET UP 12 BIT COMPARE 

02314 

1027 


TAO DLSTQP 

/ ADDR OF END OF DATA LIST 

02315 

4405 


JMS I NUMCOM 

/POINTER AT END OF LIST? 

02316 

4516 

DA, 

JMS I ERROR 

/ YES 

02317 

2317 

DLCDF, 

• 

/NO-DF TO DATA LIST 

02320 

1416 


TAD I DLPTR 

/FETCH WORD FROM DATA LIST 

02321 

6201 


CDF 


02322 

5711 


JMP I DLREAD 

/DONE 



/routines TO SWITCH 

INTERPRETER MODE 

02323 

7001 

S5M00E , 

I AC 

/SET SWITCH TO SMODE 

02324 

3063 

AMODfc, 

DCA MODESW 

/SET SWITCH TO A MODE 

02325 

5513 


JMP I ILOOPL 

/DONE 



/SUBROUTINE PUSHG 




/ROUTINE TO PUSH AC 

ON TOP OF GOSUB STACK 

02326 

0000 

PUSHG, 

0 


02327 

3040 


OCA TEMPI 

/SAVE ELEMENT TO BE PUSHED 

02330 

2067 


ISZ GSP 

/BUMP GOSUB STACK POINTER 

02331 

1067 


TAD GSP 

/GET STACK POINTER 

02332 

7041 


CIA 

/NEGATE 

02333 

1341 


TAO GSTCKT 

/ADD ADR OF TOP OF STACK 

02334 

7710 


SPA CIA 

/STACK OVERFLOW? 

02335 

4516 

GS, 

JMS I ERROR 

/YES-TOO MANY NESTED GOSUBS 

02336 

1040 


TAO TEMPI 

/NO-GET ELEMENT TO BE STACKED 

02337 

3467 


DCA I GSP 

/STACK IT 

02340 

5726 


JMP I PUSHG 

/RETURN 

02341 

0476 

GSTCKT, 

GSSTOP 

/ADOR OF TOP OF STACK 
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/ROUTINE TO RANDOMIZE RND(X) 


02342 

1017 

FRANQM, TAD 

SPINNR 

/USE SPINNR FOR NEW SEED 

FOR RND(X) 

02343 

7124 

CLL 

CML RAL 

/MAKE SURE SEED IS ODD 


02344 

3346 

DC A 

RSEED 



02345 

5513 

JMP 

I ILOOPl 

/DONE 


02348 

2713 

RSEED, 2713 





/SUBROUTINE 

CR,LF 



02347 

0000 

CRLFR, 0 




02350 

1054 

TAD 

K21 5 



02351 

4512 

JMS 

I PUTCHL 



02352 

1356 

TAD 

K212L 



02353 

4512 

JMS 

I PUTCHL 

/PRINT A CR > AND LP 


02354 

3573 

DCA 

X WORD10 

/ZERO COLUMN POINTER 


02355 

5747 

JMP 

I CRLFR 



02358 

0212 

K212L, 212 






/SUBROUTINE 

FOTYPE 





/RETURNS TO 

CALL*1 IF 

FILE FIXED LENGTH, CALL+2 IF 

variable 

02357 

0000 

FOTYPE, 0 




02360 

1563 

• TAD 

X UORD0 

/GET HEADER 


02361 

0365 

AND 

K0004 

/ISOLATE TYPE BIT 


02362 

7640 

SZA 

CLA 

/IS IT FIXED LENGTH? 


02363 

2357 

ISZ 

: FOTYPE 

/NO-BUMP RETURN 


02364 

5757 

JMP 

I FOTYPE 

/RETURN 


02365 

0004 

K0004 , 4 






/SUBROUTINE 

TO REPLACE 

FAC WITH ABS(FAC) 


02366 

0000 

absval, 0 




02367 

1045 

TAD 

HORD 



02370 

7710 

SPA 

CLA 

/IS PAC«0? 


02371 

4540 

JMS 

I FNEGL 

/YES-NEGATE IT 


02372 

5766 

JMP 

I ABSVAL 

/RETURN 




/ROUTINE TO 

RESTORE THE FAC FROM FP TEMP 


02373 

0000 

FACRES, 0 




02374 

4534 

JMS 

I fgetl 

/GET FAC 


02375 

1152 

XNTERB 



02376 

5773 

JMP 

I FACRES 

/RETURN 
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2400 PAGE 

/STRING DATA LIST READ 


02400 

4616 

SRLIST, 

JMS 

I DLREAL 

02401 

3032 


DCA 

STRLEN 

02402 

1032 


TAO 

STRLEN 

02403 

7450 


SNA 


02404 

5513 


JMP 

1 I ILOOPL 

02405 

7130 


CLL 

CML RAR 

02406 

3071 


DCA 

STRCNT 

02407 

1111 


TAD 

SACPTR 

02410 

3012 


DCA 

XR2 

02411 

4616 

SRLOQPi 

JMS 

I DLREAL 

02412 

3412 


DCA 

I XR2 

02413 

2071 


ISZ 

STRCNT 

02414 

5211 


JMP 

1 SRLOOP 

02415 

5513 


JMP 

I ILOOPL 


/READ COUNT FROM DATA LIST 
/SAVE AS NEW COUNT FOR FAC 
/COUNT FOR SAC STRING 
/NULL STRING? 

/YES-NO OPERATION TO PERFORM 
/AND DIVIDE BY TWO FOR WORD COUNT 
/SAVE AS MOVE COUNTER 

/POINTS INTO SAC 

/READ 2 CHARS FROM DATA LIST 

/AND PUT THEM IN SAC 

/BUMP STRING COUNT 

/NEXT 2 

/DONE 


02416 2311 DLREAL# DLREAD 
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/STRING READ ROUTINE 


02417 

3657 

SREAD, 

OCA I STMCOL 

/OF FOR STH 

02420 

3071 


OCA STRCNT 

/0 STRING COUNT 

02421 

7101 


CLL I AC 

/leave FIELD AS IS 

02422 

1072 


TAD STRPTR 

/ AODR OF OPERAND 

02423 

4526 


JMS I STHINL 

/ INIT STORE HALF TO STORE IN OPERAND 

02424 

4542 

FTCOM, 

JMS I GETCML 

/GET CHAR FROM FILE OR TTY 

02425 

1053 


TAD CHAR 


02426 

1055 


TAD M215 

/IS IT CR? 

02427 

7450 


SNA 


02430 

5247 


JMP SRFIN 

/YES-STRING IS FINISHED 

02431 

1256 


TAO MLF 

/IS IT LF? 

02432 

7650 


SNA CIA 


02433 

5224 


JMP FTCOM 

/ YES*IGNQRE IT 

02434 

1071 


TAO STRCNT 

/NO*GET LENGTH OF STRING SO FAR 

02435 

1070 


TAO STRMAX 

/COMPARE AGAINST UPPER LIMIT OF DESTINATION 

02436 

7700 


SMA CIA 

/ ANY MORE ROOM? 

02437 

5244 


JMP ST 

/NO-TRUNATIDN ERROR 

02440 

1053 


TAD CHAR 

/YES 

02441 

4530 


JMS I STH 

/STORE CHAR IN STRING 

02442 

2071 


ISZ STRCNT 

/BUMP COUNT 

02443 

5224 


JMP FTCOM 

/GET NEXT CHAR 

02444 

4516 

ST, 

JMS I ERROR 

/YES-TRUNCATION ERROR 

02445 

1054 


TAO K215 

/SET CHAR TO 215 

02446 

3053 


OCA CHAR 

/SO TTY BUFFER CLEARED BEFORE NEXT INPUT 



IN, 

T&lPft 


02447 

<.6 1. 

TAD *-8THCPL 

/GET OF OF STRING 

02450 

3251 


OCA »♦! 

/PUT IN LINE 

02451 

2451 


• 

/OF TO THAT OF STRING 

02452 

1071 


TAO STRCNT 

/STRING OQNE-GET LENGTH 

02453 

7041 


CIA 

/NEGATE 

02454 

3472 


DCA I STRPTR 

/STORE AS COUNT FOR STRING 

02455 

5513 


JMP I ILOOPL 

/DONE 

02456 

0003 

MLF, 

3 


02457 

2603 

STMCOL, 

STHDF 
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PAL8-V7 10/24/72 PAGE 38 


/STRING WRITE ROUTINE 


02460 

3357 

SWRITE, 

OCA 

COMMAS 

02461 

1032 


TAO 

STRLEN 

02462 

7450 


SNA 


02463 

5513 


JMP 

I IIQOPL 

02464 

7041 


CIA 


02465 

1573 


TAD 

I WORD10 

02466 

1313 


TAD 

MM110 

02467 

7740 


SMA 

SZA CLA 

02470 

4553 


JMS 

I CRLF 

02471 

1111 


TAD 

SACPTR 

02472 

7101 


ctt 

I AC 

02473 

4527 


JMS 

I LDHINl 

02474 

4557 


JMS 

I LDMRST 

02475 

1032 


TAD 

STRLIN 

02476 

3071 


DCA 

STRCNT 

02477 

4531 

SWCLP. 

JMS 

I LDH 

02500 

3040 


DCA 

TEMPI 

02501 

1040 


TAD 

TEMPI 

02502 

1106 


TAD 

KM40 

02503 

7710 


SPA 

CLA 

02504 

1076 


TAD 

K0100 

02505 

1077 


TAD 

K0200 

02506 

1040 


TAD 

TEMPI 

02507 

4512 


JMS 

I PUTCNL 

02510 

2071 


ISZ 

STRCNT 

02511 

5277 


JMP 

SWCLP 

02512 

5513 


JMP 

I ILOOPL 

02513 

7670 

MM 11 0 » 

-no 


/CLEAR COMMA SWITCH 
/# OF CHARS IN STRING 
/NULL STRING? 

/YES-NOTHING TO WRITE 
/MAKE A POSITIVE NUMBER 
/ADO TO COLUMN NUMBER 
/COMPARE AGAINST END OF LINE 
/WILL STRING FIT ON LINE? 
/NO-ISSUE A CRLF FIRST 

/AC POINTS TO LEFT SAC CHAR 1 

/INITIALIZE LOAO HALF ROUTINE 

/LOAD FROM SAC IN FLO 0 

/# OF CHARS 

/USE AS COUNTER 

/LOAD HALF CHAR FROM STRING 

/SAVE 

/SUBTRACT 40 
/IS CHAR <40? 

/NO-MAKE IT 300 SERIES 
/MAKE IT 200 SERIES 

/PUT CHAR IN FILE OR ON TTY 
/DONE? 

/NO-NEXT CHAR 
/YES 

1000 
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/FLOATING POINT constant USED BY ASCOUT FOR FORMAT CONVERSION 


0251 4 

0024 

A999» 

24 

Z999999 

02515 

3641 


3641 


02516 

0770 


0770 




/COMMA 

FUNCTION (KNOWN 

ONLY TO COMPILER FOR FORMATTING PRINT 



/STATEMENTS) 


02517 

0000 

COMMA, 

0 


02520 

4550 


JM$ I FTYPL 

/IS file numeric? 

02521 

5513 


JMP I ILOOPL 

/YES-COMMA FUNCTION IS A NOP 

02522 

1357 


TAD COMMAS 

/GET COMMA SWITCH 

02523 

7650 


SNA CLA 

/WAS LAST THING PRINTED A COMMA? 

02524 

5307 


JMP ,4-3 

/NO-WE ARE OK 

02525 

1365 


TAD C240 

/YES-PRINT A SPACE BEFORE DOING COMMA CALCULATION 

02526 

4512 


JMS I PUTCHL 


02527 

7001 


I AC 


02530 

3357 


OCA COMMAS 

/SET COMMA SWITCH 

02531 

1366 


TAD M4 


02532 

3007 


DCA TEMP2 

/ONLY 4 COLUMNS TO CHECK 

02533 

1360 


TAD POSPTA 


02534 

3014 


DCA XR4 

/POINTS TO POSITION #'3 OF COLUMNS 

02535 

1573 

COMLOP, 

TAD I WORD 10 

/GET CURRENT PRINT HEAD POSITION 

02536 

1414 


TAO I XR4 

/COMPARE AGAINST COLUMN MARKER 

02537 

7510 


SPA 

/PAST THIS ONE? 

02540 

5347 


JMP SLOVER 

/YES-SLIDE PRINT HEAD TO START OF NEXT 

02541 

7650 


SNA CLA 

/EXACTLY ON A COLUMN? 

02542 

5513 


JMP I ILOOPL 

/YES-DONE 

02543 

2007 


ISZ TEMP2 

/ALL MARKERS CHECKED YET? 

02544 

5335 


JMP COMLOP 

/NO-DO NEXT 

02545 

4553 


JMS I CRLF 

/YES-NEXT COLUMN IS 0 

02546 

5513 


JMP I ILOOPL 

/DONE 

02547 

3777 * 

SLOVER, 

DCA TEMP19 

/-# OF COLUMNS TO NEXT MARKER 

02550 

4550 


JMS I FTYPL 

/IS FILE NUMERIC? 

02551 

5513 


JMP I ILOOPL 

/ YES-THIS IS A NOP 

02552 

1365 


TAD C240 

/GET SPACE 

02553 

4512 


JMS I PUTCHL 

/PRINT IT 

02554 

2777* 


ISZ TEMPI 9 

/THERE YET? 

02555 

5350 


JMP SLOVERM 

/NO-TYPE ANOTHER SPACE 

02556 

5513 


JMP I ILOOPL 

/YES-DONE 


3371 

TEMP19«FACSAV 


02557 

0001 

COMMAS, 

1 

/SET TO l IF LAST PRINT WAS A COMMA MOVE 

02560 

2560 

POSPTA, 

POSTP-t 


02561 

7762 

POSTP , 

-16 

/COLUMN MARKERS 

02562 

7744 


-34 

/MINUS TTY COLUMN NUMBER THAT MARKS BEGINNING 

02563 

7726 


-52 

/OF ONE OF THE BASIC COLUMNS 

02564 

7710 


-70 


02565 

0240 

C240# 

240 


02566 

7774 

M4, 

*4 



/RESTORE FOR IN-CORE DATA LIST 


/OS/8 BASIC RUNTIME SYSTEM 


02567 1030 

02570 3016 

02571 5513 


RESDLSf TAD DLSTRT 
OCA DLPTR 
JMP I ILOOPL 


/RESTORE ROUTINE 


02572 

1162 

RESTOR, 

TAO ENTNO 

02573 

7650 


SNA CLA 

02574 

5367 


JMP RESOLS 

02575 

4777 


JMS I RESTIL 

02576 

PE 

5513 


JMP I ILOOPL 

02577 

1650 

RESTILi 

RESTI 
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/ADDRESS OF START OF INCDRE OATA LIST 
/USE IT TO RESET DATA LIST POINTER 
/THATS ALL1 


/GET CURRENT FILE # 

/IS IT 07 

/VES-RESTORE OATA LIST 
/NO-RESTORE A FILE 
/DONE 
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% 


/SUBROUTINE STH-SIMULATES an AUTO-INDEXING store hale instruction. 
/STORES the RIGHT HALF OF THE AC IN THE MALFwORD FOLLOWING THE 
/LAST HALFWORD STORED. TO CHANGE The STORAGE ADDRESS, CALL STHINT 


02800 0000 STHL# 

02601 0075 

02602$ei0*2- 

02603 2603 STHDF, 

02604 1244 

02605 7640 

02606* 5233 , 

j| 2607 lr--«)trt rp*' ^ 

^02610 4544 

026lUfr--3Wr 3 < ¥fr* 

02612 1645 



AND K0077 
DC A t EMPH 

TAD STHSWT 
SZA CLA 
JMP RIGHTS 

tao fe+tprr 
JMS I BSwL 
DC'A T tM PT l - 
TAD I STHR - 


/STRIP TO 6 BITS 
/SAVE 

/OF TO STORE FIELD 

/GET SWITCH FOR HALF TO STORE IN 

/WHICH HALF? 

/STORE IN RIGHT HALF 
/STORE IN LEFT HALF 
/SWAP BYTES 
/SAVE AGAIN 
/GET CURRENT VALUES 
/PRESERVE RIGHT HALF 


** , i + tt* 1 

tP 1 


6 r 


a 


0261<dk±*tr2 

'Kfcm, 

TAD 4* HP 11 

/COMBINE WITH NEW LEFT 

half 

02615 

3645 


DCA 

I STHR 

/AND STORE IT 


02616 

1244 


TAD 

STHSWT 

/GET HALF SWITCH 


02617 

7650 


SNA 

CLA 

/WAS THIS RIGHT HALF? 


02620 

5227 


JMP 

jsl 'U€^tVno-just flip switch 


02621 

2245 


ISZ 

STHR 

/BUMP POINTER 


02622 

5230 


JMP 

JSL* 1 1 

/POINTER IS BUMPEO-SET 

HALFSWITCH TO LEFT 

02623 

1203 


TAD 

STHDF 

/SKIP MEANS WE HAVE TO 

BUMP STH CDF 

02624 

1073 


TAD 

K0010 



02625 

3203 


DCA 

STHDF 



02626 

7410 


SRP 


/SET HALF SWITCH TO 0 


02627 

7040 

JSL, 

cma 


/FLIP HALF SWITCH 


02630 

3244 


DCA 

STHSWT 



02631 

6201 


CDF 




02632 

5600 


JMP 

I STHL 

/DONE 


02633 

1645 

RIGHTS, 

TAD 

I STHR 

/GET LEFT HALF 


02634 

0104 


AND 

K 7700 

/CLEAR ANY GARBAGE THAT 

MIGHT BE IN RIGHT HALF 

02635 

5214 


JMP 

SLRCQM 

/FLIP SWITCH ANO RETURN 




/SUNROUTINE 

STHINI*USEU 

TO SET THE HALFWORD ADDRESS STORED INTO BY STH. 



/ON CALL, WORD AOOR IS IN AC, LINK SET TO 0 FOR LEFT HALF.1 FOR RIGHT HALF. 

02636 

0000 

STHINI, 

0 




02637 

3245 


OCA 

STHR 

/STORE ADDRESS 


02640 

7630 


SZL 

CLA 

/WHICH HALF TO START 


02641 

7040 


CMA 

/RIGHT-SET STHSWT 


02642 

3244 


OCA 

STHSWT 

/LEFT-CLEAR STHSWT 


02643 

5636 


JMP 

I STHINI 

/DONE 



02644 0000 sthswt, 0 

02645 0000 STHR, 0 


/STORE HALFWORD SWITCH 
/halfword POINTER FOR STh 
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/SUBROUTINE LDH-SIMUL ATES AN AUTO-INDEX ING LOAD MALE INSTRUCTION. WHEN 
/CALLED, IT LOADS THE NEXT HALFWORD INTO AC, TO CHANGE ADDRESS FROM 
/WHICH IT LOADS, CALL LDHINI. DF MUST BE SET TO OF OF SOURCE ON CALL. 


/OF FROM WHICH TO GET WORDS 
/WHICH HALF TO LOAD? 

/RIGHT HALF 
/LEFT HALF-GET BOTH 
/SWAP BYTES 
/ISOLATE CHAR 
/SAVE 

/FLIP LDHSWT 


/RETURN 
/GET WORD 

/BUMP POINTER TO NEXT WORD 

/NO SKIP SO JUST CONTINUE 

/SKIP MEANS WE HAVE TO BUMP LDH OF 


/GET WORD AGAIN 
/FLIP SWITCH ANO RETURN 

/SUBROUTINE LOHINI-USED TO SET HALFWORD ADDRESS LDH DRAWS FROM. ON CALL, 
/AC»FULL WORD ADDRESS, AND LINK«0 FOR LEFT HALF , 1 FOR RIGHT. 

02676 0000 LDHINI, 0 

02677 3305 DCA LDHR 

02700 7630 SZL CL A 

02701 7040 CMA 

02702 3304 DCA LOHSwT 

02703 5676 - JMP I LOMINI 

02704 0000 LDHSWT, 0 /LOAD HALFWQRO SWITCH 

02705 0000 LDHR, 0 /HALFWORD POINTER ...EOH-UW— 


2636 TEMP2l»im*f- ‘ 



/SAVE LDH POINTER 
/WHICH HALF? 
/RIGHT-LOHSWT»7777 
/LEFT-LDHSWT«0 
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/SUBROUTINE BUFCHK-CHECKS THE POSITION OP THE BUFFER POINTER FOR 
/THE DEVICE WHOSE I/O TABLE ENTRY IS IN WORKING AREA, RETURNS TO CALL+1 
/IF THE POINTER IS AT THE END AND CHAR NUMBER IS 1 (LAST 
/AVAILABLE CHAR 3 HAS BEEN USED),CALL+2 IF THE POINTER IS AT THE 
/END BUT THE CHAR • IS NOT 1 (THERE IS 1 CHAR 3 LEFT), CALL*3 
/IF THERE IS 1 WORD LEFT IN BUFFER, CALL+A IF MORE THAN 1 LEFT. 



02706 

0000 

BUFCHK, 

0 




02707 

1162 


tad entnq 

/GET OEVICE # 



02710 

7650 


SNA CIA 

/IS IT TTY? 


t/S'A 

02711 

1327 


TAD MK61 

/YES-CHECK FOR A BUFFER 60 WORDS 

LONG 

V J 

02712 

1102 


TAD K0400 

/NO-CHECK FOR A BUFFER 400 WORDS 

LONG 


02713 

1564 


TAD I WQRD1 

/ADO LENGTH TO BUFFER ADDRESS 



02714 

7041 


CIA 

/-ADDR OF ENO OF BUFFER 



02715 

1566 


TAD I W0RD3 

/CHECK AGAINST CURRENT POINTER 



02716 

7450 


SNA 

/IS POINTER AT ENO OF BUFFER? 



02717 

5330 


JMP EBC 

/AT END-CHECK THE CHAR # 



02720 

2306 


ISZ BUFCHK 




02721 

2306 


ISZ BUFCHK 

/NO-BUMP RETURN 



02722 

7001 


I AC 




02723 

7650 


SNA CLA 

/WAS POINTER AT LAST WORD? 



02724 

5706 


JMP I BUFCHK 

/YES-RETURN TO CALL*3 



02725 

2306 


ISZ BUFCHK 

/NO 



02726 

5706 


JMP I BUFCHK 

/RETURN TO CALL*4 



02727 

7461 

MK6 1 1 

7461 




02730 

4551 

EBC, 

JMS I CHRNOL 

/GET CHAR * 



02731 

5706 


JMP I BUFCHK 

/IT WAS t-RETURN TO CALL+1 



02732 

7000 


NOP 

/IT WAS 3-RETURN TO CALL+2 



02733 

2306 


ISZ BUFCHK 

/IT WAS 2-RETURN TO CALL+2 



02734 

5706 


JMP I BUFCHK 
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/SUBROUTINE PACKCH. PACKS 

ASCII CHARS, 3 FOR 2, INTO BUFFER FOR THE 



/DEViCfc 

IN WORK AREA, CALL WITH THE CHARACTER IN THE AC 

02735 

0000 

PACKtHi 

0 


02736 

3040 


OCA TEMPI 

/SAVE 

02737 

4551 


JMS I CHRNOL 

/DETERMINE character NUMBER 

02740 

7410 


SKP 

/I 

02741 

5345 


JMP CHAR3P 

/3 

02742 

1040 


TAD TEMPI 

/I OR 2-GET CHAR AGAIN 

02743 

4525 


JMS I WRITFW 

/STORE IN BUFFER 

02744 

4765 


JMS I CNOBMK 

/BUMP CHARACTER NUMBER 

02745 

5735 


JMP I PACKCH 

/DONE 

02746 

7344 

CHARiP t 

CLA CLL CM A RAL 

/-2 IN AC 

02747 

1566 


TAD I W0RD3 

/ BACK BUFFER POINTER UP TO POINT TO CHAR 1 

02750 

3566 


OCA I W0RD3 


02751 

1040 


TAD TEMPI 

/CHAR 

02752 

7106 


CLL RTL 


02753 

7006 


rtl 

/SLIDE LEFT HALF INTO BITS 0-3 

02754 

3040 


DCA TEMPI 

/SAVE 

02755 

1040 


TAD TEMPI 


02756 

4366 


JMS COMBNE 

/ISOLATE LEFT HALF, COMBINE WITH CHARI, AND PUT IN FILE 

02757 

1040 


TAD TEMPI 

/CHAR AGAIN 

02760 

7106 


CLL RTL 


02761 

7006 


rtl 

/SLIDE RIGHT HALF INTO BITS 0-3 

02762 

4366 


JMS COMBNE 

/ISOLATE RIGHT HALF, COMBINE WITH CHAR 2, AND PUT IN FILE 

02763 

4546 


JMS I CNQCLL 

/CLEAR THE CHARACTER NUMBER (RESET IT TO 1) 

02764 

5735 


JMP I PACKCH 

/DONE 

02765 

5573 

CNOBMK t 

CNQBML 


02766 

0000 

COMBNE t 

0 


02767 

0103 


AND K7400 

/ISOLATE HALF IN QUESTION 

02770 

3007 


DCA TEMP2 

/SAVE 

02771 

4776 


JMS I BCGETL 

/GET A WORD FROM FILE BUFFER IN FIELD 1 

02772 

0101 


AND K0377 

/FLUSH ANY SLUSH IN BITS 0-3 

02773 

1007 


TAD TEMP2 

/COMBINE 

02774 

4525 


JMS I WRITFW 

/PUT IN BUFFER 

02775 

5766 


JMP I COMBNE 

/RETURN 

02776 

3035 

BCGETL, 

BCGET 



/os/a 


03000 

03001 

03002 

03003 

03004 

03005 

03006 

03007 

03010 

03011 

03012 

03013 

03014 

03015 


03016 

03017 

03020 

03021 

03022 


03023 

03024 

03025 

03026 

03027 

03030 

03031 

03032 

03033 

03034 


03035 

03036 

03037 

03040 

03041 

03042 

03043 

03044 

03045 

03046 


BASIC RUNTIME SYSTEM 
3000 PAGE 


/ROUTINE TO READ WORD 


0000 

REAOFL, 

0 

4615 


JMS I FT YL 

7410 


SKP 

4516 

VR, 

JMS I ERROR 

1563 


TAD I WORO0 

7112 


CLL RTR 

7620 


SNL CLA 

5212 


JMP , *3 

4516 

RE, 

JMS I ERROR 

5513 


JMP I ILOOPL 

4235 


JMS BCGET 

2566 


ISZ I W0RD3 

5600 


JMP I READFL 

2357 

FTYLi 

FOTYPE 


PAU8-V7 10/24/72 PAGE 44 


FROM FILE BUFFER AND BUMP POINTER 


/IS FILE VARIABLE LENGTH 

/YES-IT IS AN ERROR TO TRY ANO READ 
/CHECK IF MORE THERE 
/EOF BIT TO LINK 
/EOF? 

/NO-CONTINUE 

/YES-ATTEMPT TO READ BEYOND EOF 
/NOT FATAL-RETURN TO I LOOP 
/GET WORD FROM FILE BUFFER 
/BUMP POINTER 
/DONE 


IT 


/ROUTINE TO RESET CHARACTER NUMBER TO 1 


0000 

CNOCLR, 

0 

1563 


TAD I WORO0 

0105 


ANO K 747 / 

3563 


DCA I WORO0 

5616 


JMP I CNOCLR 


/ROUTINE TO WRITE AC 

0000 

WRITFL, 

0 

4634 


JMS I BCPUTL 

2566 


ISZ I WORD3 

1563 


TAD I WORD0 

7112 


CLL RTR 

7620 


SNL CLA 

5623 


JMP I WRITFL 

4516 

WE, 

JMS I ERROR 

5513 


JMP I ILOOPL 

0747 

BCPUTL, 

BCPUT 


/SET CHAR BITS TO 0 
/RETURN 


/STORE AC IN FILE BUFFER 
/BUMP POINTER 
/GET FILE HEADER WORD 
/EOF BIT TO LINK 
/WAS FILE PAST END? 

/NO-RETURN 

/YES-ATTEMPT TO WRITE PAST ENO OF FILF 
/NON-FATAL RETURN TO ILOOP 


/ROUTINE TO GET ONE WORD FROM FILE BUFFER IN FIELD 1 


0000 BCGET, 

0 


4523 

JMS 

I FIDLE 

1566 

TAD 

I WORDS 

3223 

DCA 

TEMP17 

1162 

TAD 

ENTNO 

7640 

SZA 

CLA 

6211 

CDF 

10 

1623 

TAD 

I TEMP17 

6201 

CDF 


5635 

JMP 

I BCGET 


/CHECK IF FILE OPEN 
/GET READ WRITE POINTER 
/SAVE 

/GET FILE # 

/IF TTY, BUFFER FIELD IS 0 
/OF TO BUFFER FIELD 
/GET WORD FROM BUFFER 

/RETURN 


PAL8-V7 
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03047 

03050 

03051 

03052 

03053 

03054 

03055 

03056 

03057 

03060 

03061 

03062 

03063 

03064 

03065 

03066 

03067 

03070 

03071 

03072 

03073 

03074 

03075 

03076 

03077 

03100 

03101 

03102 

03103 

03104 


/SUBROUTINE UNPACK-UNPACKS ASCII, 3 FOR 2 , FROM THE FILE IN THE I/O 
/WORKING AREA 9 RETURNS WITH THE CHAR IN CHAR, 


0000 

UNPACK, 

0 

4551 


JMS I CHRNOL 

7410 


SKP 

5264 


JMP CHAR3U 

4704 


JMS I CNOBMP 

4747 


JMS I READFW 

0101 


AND K0377 

3053 

U123C, 

OCA CHAR 

1053 


TAO CHAR 

1303 


TAD MCTRLZ 

7650 


SNA CLA 

5543 


JMP I EOFSEL 

5647 


JMP I UNPACK 

4216 

CHAR JU , 

JMS CNOCLR 

7344 


CLA CLL CMA RAL 

1566 


TAO I WORD3 

3566 


DCA I W0R03 

4747 


JMS I READFW 

0103 


AND K7400 

3216 


DCA TEMP 1 8 

4747 


JMS I READFW 

0103 


AND K 7400 

7112 


CLL RTR 

7012 


RTR 

1216 


TAD TEMPI 8 

7112 


CLL RTR 

7012 


RTR 

5256 


JMP U123C 

7546 

MCTRLZ, 

*232 

5573 

CNOBMP, 

CNOBML 

3016 


TEMP 1 8»CN0CLR 


/GET CHAR # 

/I 

/3 

/BUMP CHAR NUMBER 
/GET CHAR AGAIN 
/STRIP TO EIGHT BITS 
/SAVE 

/GET CHAR AGI AN 
/IS IT CTRL/Z? 

/YES-SET EOF BIT 
/RETURN 

/RESET CHAR # TO 1 
/*2 IN AC 

/BACK BUFFER POINTER UP 2 
/GET LEFT HALF OF CHAR 

/SAVE 

/GET NEXT WORD WITH RIGHT HALF 
/ISOLATE RIGHT HALF 

/SLIDE RIGHT HALF OVER 
/COMBINE WITH LEFT HALF 

/MOVE TO BITS 4*11 
/REJOIN MAINLINE 
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01105 

03106 

03107 

03110 

03111 

03112 

03113 

03114 

03115 

03116 

03117 

03120 

03121 

03122 

03123 

03124 

03125 


03126 

03127 

03130 

03131 

03132 

03133 

03134 

03135 

03136 

03137 

03140 

03141 

03142 

03143 

03144 

03145 

03146 

03147 


/BEAU FUNCTION-GETS NUMBERS INTO VARIABLES 


4550 

READI , 

JMS I FTYPL 

/IS FILE NUMERIC? 

7410 


SKP 

/YES-WRITE DATA 

5323 


JMP ASCHR 

/NO-WRITE ASCII 

4547 


JMS I BUFCHL 

/YES-CHECK BUFFER POINTER 

7000 


NOP 

/PAST END-NEXT RECORD 

7000 


NOP 

/AT END-NEXT RECORD 

4552 


JMS I NEXRfcL 

/ONLY 1 WORD LEFT-IT IS UNUSED IN 

4747 


JMS I READFW 

/GET WORD FROM FILE 

3044 


DCA EXP 

/STORE AS EXPONENT 

4747 


JMS I READFW 

/GET WORD FROM FILE 

3045 


DCA HORD 

/STORE AS HIGH MANTISSA 

4747 


JMS I READFW 

/GET WORD FROM FILE 

3046 


DCA LORD 

/STORE AS LOW MANTISSA 

5513 


JMP I 1LODPL 

/DONE 

4725 

ASCHR , 

JMS I FFINL 

/USE FPP INPUT TO GET NUMBER 

5513 


JMP I ILOOPL 

/DONE 

5200 

FFINL, 

FFIN 



/ROUTINE 

: TO FETCH ASCII 

CHARACTERS FROM FILE BUFFER 

0000 

GETCH, 

0 


4550 


JMS I FTYPL 

/IS FILE ASCII? 

4516 

SR, 

JMS I ERROR 

/NO-ERROR 

1053 


TAD CHAR 

/GET LAST CHAR 

1055 


TAD M2! 5 

/WAS IT CR? 

7650 


SNA CLA 


5343 


JMP TTEST 

/YES-IF TTY, WE MUST REFILL BUFFER 

4547 

ntty* 

JMS I BUFCHL 

/NO-CHECK STATUS OF BUFFER 

4552 


JMS I NEXREL 

/LAST CHAR REAO-NEXT RECORD 

7000 


NOP 

/CHAR 3 NOT USED YET 

7000 


NOP 

/CHAR 2 AND 3 LEFT 

4247 


JMS UNPACK 

/UNPACK CHAR FROM BUFFER 

5726 


JMP I GETCH 

/RETURN 

1162 

ttest, 

TAD ENTNO 

/ENTRY NUMBER 

7650 


SNA CLA 

/IS IT TTY? 

4524 


JMS I DEVCAL 

/YES-FILL TTY BUFFER 

5335 


JMP NTTY 

/RESUME 

3000 

READFw, 

readfl 
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/STRING ACCUMULATOR LOAD 


03150 

3365 

SLOAD, 

DC A 

LOADDF 

/PUT OF FOR OPERAND FIELD IN LINE 

03151 

1111 


TAD 

SACPTR 

/POINTER TO START OF SAC 

03152 

3012 


DCA 

XR2 

/POINTS INTO SAC 

03153 

1071 


TAD 

STRCNT 

/GET LENGTH OF THIS STRING 

03154 

3032 


DCA 

STRLEN 

/SET THAT LENGTH AS LENGTH OF STRING IN SAC 

03155 

1032 


TAD 

STRLEN 

/GET LENGTH OF NEW STRING 

03155 

7650 


SNA 

CLA 

/IS IT A NULL STRING? 

03157 

5513 


JMP 

I ILOOPL 

/YES-WE DON'T HAVE TO MOVE ANYTHING 

03160 

2072 

SSLP* 

ISZ 

STRPTR 

/POINT TO FIRST PAIR OF CHARACTERS 

03161 

5365 


JMP 

LOADDF 


03162 

1365 


TAD 

LOADDF 

/SKIP MEANS WE HAVE TO BUMP OF 

03163 

1073 


TAD 

K0010 


0316a 

3365 


DCA 

LOADDF 


03165 

3165 

LOAOPF, 

• 


/OF TO OPERAND FIELD 

03166 

1472 


TAD 

I STRPTR 

/GET 2 CHARS FROM STRING 

03167 

6201 


CDF 


/OF TO SAC FIELO 

03170 

3ai2 


DCA 

I XR2 

/PUT IN SAC 

03171 

2071 


ISZ 

STRCNT 

/DONE? 

03172 

7ai0 


SKP 


/NO-TWO CHARS/WORO 

03173 

5513 


JMP 

I ILOOPL 

/YES-NEXT INST 

0317a 

2071 


ISZ 

STRCNT 

/DOES SECOND CHAR MAKE COUNT 0? 

03175 

5360 


JMP 

SSLP 

/NO-LOOP 

03176 

5513 


JMP 

I ILOOPL 

/YES-NEXT INST 
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3200 PAGE 

/WRITE FUNCTION-PUTS NUMBERS IN FILE BUFFERS 


03200 

4550 

HRITtl, 

JMS I FTYPL 

/GET FILE TYPE 

03201 

7410 


5KP 

/NUMERIC-WRITE DATA 

03202 

5217 


JMP PONE 

/ASCII 

03203 

4547 


JMS I BUFCML 

/FILE IS NUMERIC-CHECK BUFFER STATUS 

03204 

0240 

K240, 

240 

/PAST END-NEW RECORD CAND INST SERVES AS NOP) 

03205 

0210 

K0210, 

0210 

/AT END-NEW RECORD (AND SERVES AS NOP) 

03206 

4552 


JMS I NEXREL 

/ONE WORD LEFT-OON'T USE IT 

03207 

1044 


TAD EXP 

/EXPONENT 

03210 

4525 


JMS I WRITFW 

/write IN BUFFER 

03211 

1045 


TAD HORD 

/HIGH MANTISSA 

03212 

4525 


JMS I WRITFW 

/WRITE IN BUFFER 

03213 

1046 


TAD LORD 

/LOW MANTISSA 

03214 

4525 


JMS I WRITFW 

/WRITE IN BUFFER 

03215 

5246 


JMP WOQNE 

/DONE 

03216 

1260 

ASCQUL t 

ASCOUT 

/link to fpp caller and formatter 



/PONE-CALLS ASCOUT TO 

GET NUMBER INTO INTERMEDIATE 



/BUFFER 

f THEN TYPES IT 

ON DEVICE 

03217 

4616 

RONE i 

JMS I ASCQUL 

/GET # INTO INTER BUFFER 

03220 

2061 


I$Z TEMP10 

/MOVE POINTER PAST SPACE THAT SENT US HERE 

03221 

1461 


TAD I TEMPI 0 

/GET SIGN 

03222 

1251 


TAD MPLUS 


03223 

7640 


SZA CLA 

/IS IT PLUS? 

03224 

5227 


JMP MDNE 

/NQ-ITS MINUS 

03225 

1204 


TAD K240 

/SPACE 

03226 

3461 


DCA I TEMP 10 

/REPLACE WITH SPACE 

03227 

1007 

MQNE i 

TAD TEMP2 

/GET COUNT OF CHARS TO BE PRINTED 

03230 

1573 


TAD I WORD 1 0 

/ADO TO PRINT HEAD POSITION 

03231 

1252 


TAD Ml 1 0 

/COMPARE AGAINST ''72" 

03232 

7740 


SMA SZA CLA 

/WILL THE NUMBER FIT ON THIS LINE? 

03233 

4553 


JMS I CRL f 

/NO-ISSUE A CR,LF 

03234 

1461 

CPLOUPf 

TAD I TEMP 1 0 

/GET CHAR FROM INTERMEDIATE BUFFER 

03235 

1055 


TAD M2 1 5 

/IS IT CR? 

03236 

7650 


SNA CLA 


03237 

5244 


JMP ASCNDE 

/YES-NUMBER ALL OUTPUTTED 

03240 

1461 


TAD I TEMP 10 

/NO-GET CHAR AGAIN 

03241 

4253 


JMS PUTCH 

/PUT ON DEVICE 

03242 

2061 


I5Z TEMPI 0 

/BUMP POINTER 

03243 

5234 


JMR CPLOOP 

/NEXT 

03244 

1204 

ASCNOE t 

TAD K240 


03245 

4253 


JMS PUTCH 

/FOLLOW THE NUMBER WITH A SPACE 

03246 

3650 

WDQNE i 

DCA I COMMAP 

/CLEAR COMMA SWITCH 

03247 

5513 


JMP I ILOOPL 

/WRITE IS DONE 

03250 

2557 

COMMAP, 

COMMAS 


03251 

7525 

MPLUS, 

-253 


03252 

7670 

Ml 10, 

-110 
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/ROUTINE TO PUT ASCII CHARS IN FILE BUFFER, IGNORES RUBOuTS. 


03253 

0000 

PUTCH, 

0 

0325a 

3040 


OCA TEMPI 

03255 

1040 


TAD TEMPI 

03256 

1301 


TAD MRUBOT 

03257 

7650 


SNA CLA 

03260 

5653 


JMP I PUTCH 

03261 

4550 


JMS I FTYPL 

03262 

4516 

sw, 

JMS I ERROR 

03263 

2573 


ISZ I WORO10 

03264 

1162 


TAD ENTNO 

03265 

7650 


SNA CLA 

03266 

5276 


JMP TOUT 

03267 

4547 


JMS I BUFCHL 

03270 

4552 


JMS I NEXI 

03271 

0040 

KK40# 

40 

03272 

0020 

K 20 1 

00 

03273 

1040 


TAD TEMPI 

03274 

4545 


JMS I PACKL 

03275 

5653 


JMP I PUTCH 

03276 

1040 

TOUT f 

TAD TEMPI 

03277 

4522 


JMS I XPUT 

03300 

5653 


JMP I PUTCH 

03301 

7401 

MRUBOT t 

-377 


/SAVE CHAR 
/GET CHAR AGAIN 

/IS IT A RUBOUT? 

/YES-RETURN 
/IS FILE NUMERIC? 

/YES-ERROR 

/BUMP COULMN NUMBER 

/GET ENTRY # 

/IS IT TTY? 

/YES-JUST PUT CHARS IN RING BUFFER 
/NQ-IS BUFFER FULL? 

/YES-NEXT RECORO 


LEFT (AND IS A NOP) 
AND 3 LEFT (AND IS A 


/THERE IS A CHAR 3 
/THERE IS A CHAR 2 
/GET CHAR AGAIN 
/PUT IN BUFFER 
/RETURN 


/GET CHAR 

/PUTCH CHAR IN OUTPUT BUFFER FOR TTY 
/RETURN 


NOP) 
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/SUBROUTINE NEXREC-WRITES THIS BUFFER IN FILE > THEN READS IN NEXT BUFFER 



/IF POSSIBLE, ELSE SETS 

EOF BIT, IF DEVICE 15 READ OR WRITE ONLY 



/IT JUST 

READS OR WRITES A BLOCK , WHICHEVER IS APPROPRIATE 

03302 

0000 

NEXREC, 

0 


03303 

1563 


TAD I WORD0 

/GET HEAOER 

03304 

0272 


AND K20 

/GET REAO/WR I TE ONLY BIT 

03305 

7650 


SNA CLA 

/IS IT ON? 

03308 

5316 


JMP FILSTR 

/NO-DEVICE IS FILE STRUCTURED 

03307 

4743 


JMS I FOTYPL 

/YES-IS IT INPUT OR OUTPUT FILE? 

03310 

5314 


JMP RONLY 

/INPUT-DEVICE IS READ ONLY 

03311 

4350 


JMS WRBLK 

/DEVICE IS WRITE ONLY-WRITE THIS BLOCK IF USED 

03312 

4361 

RWQNC, 

JMS BLINIT 

/INIT file table ENTRIES 

03313 

5702 


JMP I NEXREC 

/DONE 

03314 

4344 

ronly,- 

JMS BLREAD 

/READ BLOCK INTO CORE 

03315 

5312 


JMP RWQNC 

/INIT POINTERS 

03318 

4350 

FILSTR, 

JMS WRBLK 

/WRITE THE CURRENT BLOCK IF IT HAS BEEN CHANGED 

03317 

4361 


JMS BLINIT 

/INIT FILE TABLE ENTRIES 

03320 

2565 


ISZ I W0RD2 

/BUMP BLOCK * 

03321 

1570 


TAD I W0RD5 

/STARTING BLOCK 

03322 

7041 


CIA 

/NEGATE 

03323 

1565 


TAD I W0RD2 

/SUBTRACT FROM CURRENT BLOCK FOR FILE LENGTH 

03324 

3015 


DCA BABS 

/SET UP CURRENT FILE LENGTH FOR 12 BIT COMPARE 

03325 

1571 


TAD I W0RD6 

/COMPARE TO ACTUAL LENGTH 

03328 

4405 


JMS I NUMCOM 

/IS IT > CURRENT LENGTH? 

03327 

5332 


JMP LASTB 

/YES-EXTEND THE FILE IF IT IS OUTPUT 

03330 

4344 


JMS BLREAD 

/READ IN THE NEXT RECORD 

03331 

5702 


JMP I NEXREC 

/return 

03332 

4743 

LASTB, 

JMS I FOTYPL 

/is file fixed length? 

03333 

5543 


JMP I EOFSEL 

/YES-SET EOF FLAG 

03334 

1571 


TAD I W0R06 

/NO-GET ACTUAL LENGTH 

03335 

3015 


DCA BABS 


03338 

1572 


TAD I WORD7 

/MAXIMUM LENGTH 

03337 

4405 


JMS I NUMCOM 

/IS ACTUAL LENGTH >• MAXIMUM LENGTH? 

03340 

5543 


JMP I EOFSEL 

/YES-SET EOF BITS 

03341 

2571 


ISZ I W0RD6 

/NO-BUMP ACTUAL LENGTH 

03342 

5702 


JMP I NEXREC 

/RETURN WITHOUT READING NEXT RECORD 

03343 

2357 

FOTYPL» 

FOTYPE 
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/ROUTINE TO READ 2 PAGES FROM DEVICE 


03344 

0000 

BLREADf 

0 




03345 

1205 


TAD 

K0210 

/'•READ 2 PAGES" 


03348 

4524 


JMS 

I DEVCAL 

/handler call 


03347 

5744 


JMP 

I blread 





/ROUTINE 

: to 

WRITE 2 1 

PAGES ONTO DEVICE 


03350 

0000 

WRBLK, 

0 




03351 

1563 


TAD 

I WORD0 

/GET FILE HEAOER 


03352 

0271 


AND 

KK40 

/GET FILE WRITTEN BIT 

03353 

7650 


SNA 

CLA 

/HAS THIS BLOCK 

BEEN CHANGED? 

03354 

5750 


JMP 

1 I WRBLK 

/NONRETURN 


03355 

1360 


TAD 

K4210 

/"WRITE 2 PAGES" 


03355 

4524 


JMS 

I DEVCAL 

/CALL TO DEVICE 

handler 

03357 

5750 


JMP 

I WRBLK 



03360 

4210 

K4210, 

4210 





/ROUTINE 

: to 

INITIALIZE I/O TABLE ENTRIES 

AFTER READ OR WRITE 

03361 

0000 

BLINlTf 

0 




03362 

1564 


TAD 

I WORDi 



03363 

3566 


DC A 

I WORD3 

/INIT READ/WRITE 

POINTER 

03364 

1563 


tad 

X WORD0 



03365 

0370 


AND 

K7437 

/SET CHAR # TO 1 

ANO CLEAR BLOCK WRITTEN BIT 

03366 

3563 


DCA 

I WORD0 



03367 

5761 


JMP 

I BLINIT 



03370 

7437 

K7437, 

7437 






/ROUTINE 

TO 

SAVE THE 

FAC IN FP TEMP 


03371 

0000 

FACSAV t 

0 




03372 

4535 


JMS 

I FPUTL 

/STORE FAC 


03373 

1152 


INTERS 

/USE INTERMEDIATE BUFFER FOR TEMP STORAGE 

03374 

5771 


JMP 

I FACSAV 

/RETURN 






Q i > / 


Tt 
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/ / / / / / / // / / / / // // / / / / / / / / / / // / / / / / / / / / / // / n / / t / / 1 / / / n / / ( t ft 

//////////// OVERLAY BUFFER 3A00-4800 //////////////////// 
//////////// CONTAINS FUNCTION OVERLAYS //////////////////// 
//////////// AT RUN TIME //////////////////// 
///////////////////////////////////////////////////////////// 
///////////////////////////////////////////////////////////// 
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nunnnnnunnnnnnunnutnunnunuunuun 



//////////////////////////////////////////✓////////////////// 



////////////// OVERLAY 1-ARITHMETIC FUNCTIONS /////////////// 



///////////////////////////////////////////////////////////// 



/////////////////////////////////////// /////// /////////////// 


3400 

•OVERLAY 




/INTEGER function 




/rangemll X 


03400 

0000 

INT, 0 


03401 

4535 

JMS I FPUTl 

/SAVE X 

03402 

1175 

FPPTM1 


03403 

1044 

TAD EXP 

/GET EXPONENT 

03404 

7740 

SMA SZA CLA 

/IS EXP<0? 

03405 

5213 

JMP INSC 

/NO-GO ON 

03408 

1045 

TAD HORO 

/YES 

03407 

7710 

SPA CLA 

/IS X«0? 

03410 

5270 

JMP MIR 

/YES-INT«-1 

0341 1 

4537 

JMS I FCL« 

/YES-RETURN A 0 

03412 

5600 

JMP I INT 


03413 

1045 

INSC* TAD HORO 

/GET HI MANTISSA 

03414 

7700 

$MA CLA 

/IS IT <07 

03415 

5220 

JMP INTPOS 

/NO-USE FAC AS IS 

03416 

4540 

JMS I FNEGL 

/YES-NEGATE FAC (MAKE IT POS) 

03417 

7001 

I AC 

/ANO SET FLAG 

03420 

3042 

INTPOS# OCA TEMP3 

/FLAG FOR NEGATIVE 

03421 

3047 

OCA TEMPS 

/ZERO LORD MASK 

03422 

7130 

CLL CML HAR 


03423 

3043 

DC A TEMP# 

/INITIALIZE HORD MASK TO #000 

03424 

1044 

tad EXP 


03425 

7041 

CIA 

/- COUNT 

03426 

3007 

OCA TEMP2 


03427 

1043 

MA5KL, TAD TEMP# 


03430 

7130 

CLL CML RAR 

/ROTATE l'S THROUGH 3 WORD MASK 

03431 

3043 

DC A TEMP# 

/ 

03432 

1047 

TAD TEMP5 

/UNTIL THERE IS A COUNT OF ZERO 

03433 

7010 

RAR 


03434 

3047 

DCA TEMPS 


03435 

2007 

ISZ TEMP2 

/DONE? 

03436 

5227 

JMP MASKL 

/NO 

03437 

1045 

TAD HORD 

/YES-MASK HORD 

03440 

0043 

AND TEMP# 


03441 

3045 

DCA HORD 


03442 

1046 

TAD LORD 

/MASK LORD 

03443 

0047 

AND TEMPS 


03444 

3046 

OCA LORD 


03445 

1042 

TAO TEMP3 

/NEG FLAG 

03446 

7650 

SNA CLA 

/WAS ORIGINAL NUMER <0? 

03447 

5600 

JMP I INT 

/NO-DONE 

03450 

4535 

JMS I FPUTL 

/SAVE INTCX) 

03451 

1172 

F PPTM2 
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03452 

4673 


JM$ I FADOLK 

/-INTOO + CX) 

03453 

1175 


FPPTM1 


03454 

1045 


TAD HORD 

/SAVE HORD 

03455 

3042 


OCA TEMP3 


03455 

4537 


JMS I FCLR 

/FLUSH FAC 

03457 

1042 


TAD TEMP3 

/WAS INT(X)«X? 

03460 

7650 


SNA Cl, A 


03461 

5264 


JMP JUSNEG 

/YES-JUST NEGATE INT(X) 

03462 

4673 


JMS I FADOLK 

/NO-ADD 1 

03463 

3474 


ONE 


03464 

4673 

JUSNEG # 

JMS I FADOLK 

/GET INT (X) 

03465 

1172 


FPPTM2 


03466 

4540 

JNEGi 

JMS I FNEGL 

/AND NEGATE CINTC5,i)» 

03467 

5600 


JMP I INT 

/DONE 

03470 

4534 

MIR, 

JMS I FGETL 

/LOAD FAC WITH 1 

03471 

3474 


ONE 


03472 

5266 


JMP JNEG 

/JUST NEGATE AND RETURN 

03473 

6000 

FADOLK, 

FF ADD 


03474 

0001 

ONE « 

1 


03475 

2000 


2000 


03476 

0000 


0 
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/EXPONENTIATION FUNCTION 




/IF B»0,A*B»1 





/IF A»0 AND B>0, A*B«0 





/IF A »0 AND B<0, DIVIDE BY ZERO ERROR MESSAGE RESULTS AND 

A*H»0 



/IF B«INTEGER > 0, A- 

a*A*A*A*. * A 




/IF INTEGER < 0, A* 

B*1/A*A*A* ,*A 




/IF B*REAL AND A>0, A 

•B»EXP(B*LOG(An 




/IF BiREAL AND A«0, A 

FATAL ERROR RESULTS 


03477 

0000 

EXPON, 0 



03500 

4535 

JMS I FPUTL 

/SAVE A 


03501 

1161 

FPPTM5 



03502 

4535 

JMS I FPUTL 

/SET UP RUNNING PRODUCT IN CASE 

OF 

03503 

1164 

FPPTM4 

/MULTIPLIES 


03504 

1045 

TAO HORO 

/HI ORDER OF A 


03505 

3277 

DCA EXPON 

/SAVE IT 


03506 

3064 

OCA INSAV 

/POINTER TO B IN SYMBOL TABLE 


03507 

4711 

JMS I ARGPll 

/FIND B 


03510 

4534 

JMS I FGETL 

/GET B 


03511 

0307 

ARGPLL * ARGPRE 

/LOC SKIPPED BY FPP.SO WE USE IT 

FOR CONSTANT 

03512 

6201 

CDF 



03513 

1045 

TAD HORO 

/HI ORDER OF B 


03514 

7450 

SNA 

/IS B*0? 


03515 

5771 

JMP I RETRNO 

/YES A*B»1 


03516 

7700 

sma cla 

/IS 0<0? 


03517 

5323 

JMP „*4 

/NO 


03520 

1277 

TAO EXPON 

/YES-GET HI ORDER A 


03521 

7650 

SNA CLA 

/IS A «0? 


03522 

5774 

JMP I DVTRAP 

/YES-DIVIDE BY ZERO ERROR 


03523 

1277 

TAO EXPON 

/B>0, IS Aa0? 


03524 

7650 

SNA CLA 



03525 

5365 

JMP RET0 

/YES A*B»0 


03526 

4535 

JMS I FPUTL 

/SAVE B 


03527 

1167 

FPPTM3 



03530 

4200 

JMS INT 

/GET INT (B) 


03531 

4773 

JMS I FSUBLL 

/INT(B)-B 


03532 

1167 

FPPTM3 



03533 

1045 

TAD HORO 

/IS INT (0) »Bs0? 


03534 

7640 

SZA CLA 



03535 

5767 

JMP I USELOL 

/NO-USE LOGS 


03536 

4534 

JMS I FGETL 

/ YES*USE REPETITIVE MULTIPLY 


03537 

1167 

FPPTM3 

/GET B AGAIN 


03540 

1045 

TAD WORD 



03541 

3277 

DCA EXPON 

/SAVE SIGN OF B 


03542 

4775 

JMS I ABSV 

/ 1 B 1 


03543 

4535 

JMS I FPUTL 

/USE ABS(B) AS MULTIPLY COUNT 


03544 

1167 

FPPTM3 



03545 

4534 

EMLOQP, JMS I FGETL 

/GET B 


03546 

1167 

FPPTM3 



03547 

4773 

JMS I FSUBLL 

/B-t 


03550 

3474 

ONE 



03551 

4535 

JMS I FPUTL 

/SAVE NEW COUNT 
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03552 

1167 


FPPTM3 


03553 

1045 


TAD WORD 


03554 

7650 


SNA CIA 

/IS COUNT ZERO VET 

03555 

5770 


JMP I EMDONL 

/YES-MULTIPLIES ARE DONE 

03556 

4534 


JMS I FGETL 

/NO-GET RUNNING PRODUCT 

03557 

1164 


FPPTM4 


03560 

4772 


JMS I FMPYL 

/MULTIPLY BY A 

03561 

1161 


FPPTM5 


03562 

4535 


JMS I FPUTl 

/SAVE NEW RUNNING PRODUCT 

03563 

1164 


FPPTM4 


03564 

5345 


JMP EMLOOP 


03565 

4537 

RET0 r 

JMS I FCLR 

/RETURN WITH 0 IN FAC 

03566 

5513 


JMP I ILOOPl 


03567 

3613 

USELU It 

USELOG 


03570 

3600 

EMDONLr 

EMDONE 


03571 

3610 

RETRNQ# 

RETRN1 


03572 

5600 

FMPYL# 

FFMPY 


03573 

6117 

FSUBLL# 

FFSUB 


03574 

6355 

OVTRAP# 

DV 


03575 

2366 

ABSV # 

ABSVAL 
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3600 


PAGE 


03600 

4534 

EMOONE, 

JMS I FGETL 

/GET RUNNING PRODUCT 

03601 

1164 


FPPTM4 


03602 

1630 


TAD I EXPONK 

/GET SIGN OF 8 

03603 

7700 


SMA CLA 

/WAS IT -? 

03606 

5513 


JMP I ILOOPL 

/N0-A"8»A*A*A*. , ,*A 

03605 

4631 


JMS I FIDVP 

/YES-INVERT 

03606 

3474 


ONE 


03607 

5513 


JMP I ILOOPL 

/A^BM/ASA^A*, a , *A 

03610 

4534 

RETRM, 

JMS I FGETL 


03611 

3474 


ONE 

/SET FAC TO 1 

03612 

5513 


JMP I ILOOPL 


03613 

1630 

USELQG, 

TAD I EXPONK 

/SIGN OF A 

03614 

7710 


SPA CLA 

/ A<0? 

03615 

4516 

EM, 

JMS I ERROR 

/YES-PRINT A MESSAGE 

03616 

4534 


JMS I FGETL 

/LOAD A 

03617 

1161 


FPPTM5 


03620 

4626 


JMS I FFLOGL 

/LOG (A) 

03621 

4627 


JMS I FMPYLV 

/B*LOG (A) 

03622 

1167 


FPPTM3 


03623 

4625 


JMS I FFEXPL 

/EXP(B*LOG(A)) 

03624 

5513 


JMP I ILOOPL 

/DONE 

03625 

4120 

FFEXPL* 

FFEXP 


03626 

4263 

ffloul* 

fflog 


03627 

5600 

FMPYLVi 

FFMPY 


03630 

3477 

EXPONK, 

EXPON 


03631 

5412 

FIDVP, 

FFDIV1 




/SGN FUNCTION 


03632 

0000 

SGN, 

0 


03633 

1045 


TAD HORD 

/GET HIGH MANTISSA 

03634 

7450 


SNA 

/IS X»ZERO? 

03635 

5513 


JMP I ILOOPL 

/YES-THEN LEAVE IT ALONE 

03636 

7710 


SPA CLA 

/IS X>0? 

03637 

5242 


JMP ,+3 

/NO 

03640 

7001 


I AC 

/YES-SET FAC«1 

03641 

7410 


SKP 


03642 

7040 


CMA 

/NO-SET FAC»-1 

03643 

3044 


OCA EXP 

/SET UP FLOAT 

03644 

4541 


JMS I FLOATL 

/FLOAT VALUE OF SGN FUNCTION 

03645 

5513 


JMP I ILOOPL 

/DONE 
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IFZERO EAE < 

/FLOATING SQUARE ROOT 

/USES A hardware type algorithm FOR BINARY SQUARE ROOTS 
/REF* THE LOGIC OF COMPUTER ARITHMETIC-IVAN FLORES-P 409 
/ 


03846 

0000 

FROOT, 

0 




03647 

7332 


CLA 

CLL 

CML RTR 

/SET RESULT TO 2 000J0B00 

03650 

3375 


OCA 


AN1 


03651 

3376 


OCA 


AN2 


03652 

6201 


COF 



/OF TO PACKAGE FIELD 

03653 

1377 


TAD 


KM22 

/SET COUNTER FOR DEVELOPING 22 BITS OF RESULT 

03654 

3042 


OCA 


AC2 

/ALREADY HAVE 1 

03655 

1045 


TAD 


ACh 


03656 

7450 


SNA 




03657 

5646 


JMP 

I 

FROOT 

/ZERO FAC-NORMALIZED1-RETN, SAME 

03660 

7710 


SPA 


CLA 


03661 

4540 


JHS 

I 

FNEGL 

/TAKE ROOT OF ABSOL VALUE 

03662 

1044 


TAD 


ACX 

/GET EXPONENT OF FAC 

03663 

7510 


SPA 



/IF NEGATIVE-MUST PROPAGATE SIGN 

03664 

7020 


cml 




03665 

7010 


rar 



/DIVIDE EXP, BY 2 

03666 

3044 


OCA 


ACX 

/STORE IT BACK 

03667 

7430 


SZL 



/increment exp, if original EXP 

03670 

2044 


isz 


ACX 

/WAS ODD 

03671 

7000 


NOP 




03672 

7420 


SNL 



/DO A PRE-SHIFT FOR EVEN EXPONENTS 

03673 

4774 


JMS 

I 

ALIK 

/SO FIRST BIT PAIR IS 10 NOT 01 

03674 

7344 


CLA 

CLL 

CMA RAL 

/SET COUNTER FOR DETECTING A 

03675 

3373 


OCA 


ZCNT 

/ZERO REMAINDER 

03676 

7332 


CIA 

CLL 

CML RTR 

/SET UP POSITION OF TRIAL BIT 

03677 

7012 


RTR 



/FOR FIRST PASS THRU LOOP 

03700 

3050 


OCA 


OPH 


03701 

3051 


OCA 


OPL 


03702 

1372 


TAO 


R6000 

/GET A FAST FIRST BIT-WE KNOW 

03703 

1045 


TAO 


ACH 

/THIS WILL WORK SINCE # IS NORMALIZED 

03704 

3045 


OCA 


ACH 

/IF 1 IS * POWER OF TWO, AND A PERFECT 

03705 

1045 


TAD 


ACH 

/SQUARE-WE ARE DONE HERE 1 

03706 

7450 


SNA 



/WELL IS IT? 

03707 

1046 


TAD 


ACLO 

/COULD BE-CHECK LOW ORDER 

03710 

7650 


SNA 


CLA 


03711 

5365 


JMP 


DONE 

/WHOOPPEE-WE WIN BIG, 

03712 

5322 


JMP 


LOP01 

/NQPE-LOOP DON'T SHIFT FIRST TIME 

03713 

1050 

SLOOP, 

TAD 


OPH 

/SHIFT TRIAL BIT 1 PLACE 

03714 

7110 


CLL 


RAR 

/TO THE RIGHT 

03715 

3050 


OCA 


OPH 

/AND STORE BACK 

03716 

1051 


TAD 


OPL 


03717 

7010 


RAR 




03720 

3051 


OCA 


OPL 


03721 

4774 


JMS 

I 

AUK 

/SHIFT FAC LEFT 1 PLACE 

03722 

1051 

LOP01, 

TAD 


OPL 

/ADD TRIAL BIT TO ANSWER 

03723 

1376 


TAO 


AN2 

/SO FAR 

03724 

7141 


CLL 

CMA 

I AC 

/NEGATE IT 

03725 

1046 


TAD 


ACLO 

/ANO ADD TO FAC (REMAINDER SO FAR) 

03726 

7450 


SNA 



/IS RESULT ZERO? 

03727 

2373 


isz 


ZCNT 

/YES-INCREMENT COUNTER 
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03730 


BASIC RUNTIME SYSTEM PAL8-V7 10/24/72 

3043 DCA TM /STORE RESULT I 


PAGE 5G-1 
N TEMPORARY 



/OS/8 BASIC RUNTIME SYSTEM PAL8-V7 10/24/78 PAGE 57 


03731 

7024 


CMC 


R At 

03732 

1050 


TAD 


OPM 

03733 

1375 


TAD 


AN1 

03734 

7141 


CLt 

CMA 

X AC 

03735 

1045 


TAD 


ACM 

03736 

7420 


SNL 



03737 

5361 


JMP 


GON 

03740 

7440 


SZA 



03741 

5346 


JMP 


COP02 

03742 

2373 


ISZ 


ZCNT 

03743 

5346 


JMP 


• ♦3 

03744 

7040 


cma 



03745 

3042 


DCA 


AC2 

03746 

3045 

LOP02, 

DC A 


ACM 

03747 

1043 


TAD 


TM 

03750 

3046 


DCA 


ACID 

03751 

1051 


TAD 


OPC 

03752 

7104 


Ctt 


RAl 

03753 

1376 


TAD 


AN2 

03754 

3376 


DCA 


AN2 

03755 

1050 


TAD 


OPH 

03756 

7004 


RAL 



03757 

1375 


tad 


AN 1 

03760 

3375 


DCA 


AN1 

03761 

7344 

GON, 

CLA 

CU. 

CMA RAC 

03762 

3373 


DCA 


ZCNT 

03763 

2042 


xsz 


AC2 

03764 

5313 


JMP 


SCOOP 

03765 

1375 

DONE* 

TAD 


AN1 

03766 

3045 


DCA 


ACM 

03767 

1376 


tad 


AN2 

03770 

3046 


DCA 


ACCO 

03771 

5646 


JMP 

I 

FROOT 


/ AOD CARRY TO HIGH ORDER FOR SUBTRACT 
/ADO TRIAL BIT 

/ADO RESULT SO FAR (HI ORDER) 

/AND SUBTRACT FROM HI ORDER FAC 

/RESULT NEGATIVE? 

/YES-NEXT RESULT BIT IS 0 
/NQ-IS HI ORDER RESULT«0? 

/NO-GO ON 

/YES-WAS LOW ORDER »0? 

/NO-GO ON 

/YES-REM,*0-SET COUNTER SO 
/LOOKS LIKE WE'RE DONE 
/STORE HIGH ORDER REM, IN FAC 
/STORE LO ORDER REM, IN FAC 

/TRIAL BIT SHIFTED LEFT 1 IS 
/RESULT BIT-AOD IT TO ROOT DEVELOPED 
/SO FAR 


/RESET COUNTER FOR ZERO REM, 

/DONE ALL 23 RESULT BITS? 
/NO-GO ON 

/YES-STORE ANSWER IN FAC 
/ITS NORMALIZED ALREADY 


/ANO RETURN 


03772 8000 R6000 , 6000 

03773 0000 ZCNT t 0 

03774 6057 ALIKi AL1 

03775 0000 AN1, 0 

03776 0000 AN2, 0 

03777 7752 KM22, -26 
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IPNZRO EAE « 
ENPUNCM 


/FLOATING SQUARE ROOT 

/USES MODIFIED HAROWARE ALGORITHM FOR BINARY SQUARE ROOTS 
/REF1 THE LOGIC OF COMPUTER ARITHMETIC-I VAN FLORES 1 P-409 
•SGN+14 
FROOT, 0 

CLA CLL CML RTR /SET RESLT TO 2000,0000 


OCA 

OCA 

SWAB 

COF 

OCA 

TAD 

OCA 

TAO 

ASR 


OPL 

OPH 


RBCNT 

KM22 

AC2 

ACX 


/MODE B OF EAE- ALSO DOES MQL 

/CLR. SHIFT COUNTER 

/SET COUNTER FOR 23 BITS OF RESULT 
/GET EXPONENT OF FAC 
/DIVIDE BY 2 


RKNT, 


LOOP, 


LOP1 r 


1 


OCA 

ACX 

/STORE IT BACK 

DPSZ 


/INCREMENT EXP. IF ORIG, EXP 

ISZ 

NOP 

ACX 

/WAS ODD 

MQA 


/DETERMINE WHETHER TO DO A 

CLL 

RAL 

/PRE-SHIFT FOR EVEN EXPONENTS, 

CML 

RAl 


OCA 

RKtoT 

/STORE BIT-0 OR 1 SHIFT CNT 

CLL CML 
RTR 

RTR 

/SET UP FIRST TRIAL BIT 

OCA 

AC1 


OCA 

AC0 

/STORE AWAY 

DCA 

ACNT 

/ZERO COUNTER 

OLD 

ACH 


/GET THE FAC 

SWP 


/GET IN RIGHT ORDER 

SNA 


/IS IT ZER07 (HI QRD»0) 

JMP I 

FROOT 

/YES-ROOT * 0 

SPA 


/NEGATIVE? 

OCM 


/YES-TAKE ABSOL. VALUE 

SHL 


/SHIFT # 1 BIT IF EXP WAS EVEN 

0 


/SO FIRST BIT PAIR IS 10 NOT 01 

TAD 

K6000 

/SUBTRACT 2000-KNOW FIRST BIT 

OPSZ 


/IS 1 (NORMALIZED) -DONE?? 

JMP 

IOP1 

/NQ-WE MUST LOOP 

JMP 

DONE 

/YES-AN EASY ONE! 11 

OLD 

ACH 


/GET THE FAC 

shl 

1 

DST 


/SHIFT FAC APPROPRIATELY 


/MUST STOR BACK IN CASE RESLT 

ACH 


/BIT IS 0 

OLD 

AC0 


/GET TRIAL BIT 
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ASR 


/SHIFT THE BIT APPROPRIATELY 

ACNT, 

0 




ISZ 

ACNT 

/SHIFT 1 MORE NEXT TIME 


DAD 


/AOD IN RESULT SO FAR 


OPH 




OCM 


/NEGATE IT 


ISZ 

RBCNT 

/BUMP COUNTER FOR RESLT BIT 


DAD 


/DO THE SUBTRACT 


ACM 




SNL 


/RESULT NEGATIVE? 


JMP 

GON 

/YES-NEXT RESULT BIT « 0 


DPSZ 


/NO-OID WE GET A ZERO REMAINDER? 


JMP 

NOTZRO 

/NOPE 

ZREM, 

CMA 


/YES-SET SO LOOKS LIKE WE'RE DONE 


DCA 

ACS 


NOTZRO, 

DST 


/GOOD SUBTR, -MODIFY FAC 


ACH 


/ITS NOT CHANGED BY BAD SUBTRACT 


CAM 


/CLEAR EVERYTHING 


RTR 




ASR 


/SHIFT RESLT BIT TO RIGHT PLACE 

RBCNT, 

0 




DAO 


/ADD IT TO THE RESULT SO FAR 


OPH 


/WE APPEND IT TO RIGHT OF LAST 


OST 


/BIT 


OPH 


/STORE IT BACK 

GON, 

ISZ 

AC2 

/DONE 23 BITS? 


JMP 

LOOP 

/NO-GO ON 

DONE , 

OLD 


/YES-GET RESULT- ITS NORMALIZED 


OPH 


i 


DCA 

ACH 

/STORE HIGH ORDER BACK 


SWP 




DCA 

ACLO 

/STORE COW ORDER BACK 


JMP I 

FROOT 

/RETURN 

KM22, 

-26 



K6000, 

6000 




NOPUNCH 
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/23-BIT 

EXTENDED FUNCTIONS 



/1-31-72 ft BEAN 



4000 


*4000 




/****** 

SINE****** 


04000 

0000 

SIN, 

0 


04001 

4303 


JMS NHNDLE 

/IF X<0, NEGATE X AND SET NFL*G 

04002 

4661 


JMS I FMPYLK 

/X*2/PI 

04003 

4160 


TOVPI 


04004 

4271 


JMS FRACT 

/SAVE X IN TEMPI, THE INTEGER PART OF X IN NUM, AND GET FRACTIONAL PART 

04005 

1313 


TAO NUM 

/GET INTEGER PART OF (2/PI)*X 

04006 

0270 


AND C3 

/ISOLATE BITS 10,11 

04007 

1212 


TAO JMPISN 


04010 

3211 


OCA ,*l 

/MAKE JUMP TO ARGUMENT REDUCING ROUTINE 

04011 

5211 


JMP # 

/AND ADJUST ARG ACCORDING TO QUADRANT OF X 

04012 

5613 

JMPISN, 

JMP I ,41 

04013 

4026 


POlYSN 

/X IN QUAD1,SIN(X)»SIN(X) 

04014 

4017 


QUAD2 

/X IN QUADS, SINCX)*SIN(1-X} 

04015 

4022 


QUADS 

/X IN QUA03,SIN(X)aSINOX) 

04016 

4024 


QUAD4 

/X IN QUAD4,SIN(X)sSIN(X-l) 

04017 

4663 

QUA02, 

JMS I FSUB1L 

/ 1 *X 

04020 

3474 


ONE 


04021 

5226 


JMP POLYSN 

/CALCULATE SINC1-X) 

04022 

4540 

QUADS, 

JMS I FNEGL 

/-X 

04023 

5226 


JMP POLYSN 

/CALCULATE SINC-X) 

04024 

4664 

QUA04, 

JMS I FSUBL 

/X-l 

04025 

3474 


ONE 


04026 

4535 

POLYSN, 

JMS I FPUTL 

/SAVE X 

04027 

1175 


FPPTM1 


04030 

4665 


JMS I FSQRL 

/U*X**2 

04031 

4535 


JMS I FPUTL 

/SAVE U 

04032 

1172 


FPPTM2 


04033 

4661 


JMS I FMPYLK 

/A7*U 

04034 

4377 


SINA7 


04035 

4660 


JMS I FAOOL 

/A5*A7*U 

04036 

4374 


SINA5 


04037 

4661 


JMS I FMPYLK 

/ A5*U*A7*U**2 

04040 

1172 


FPPTM2 


04041 

4660 


JMS I FApDL 

/A3+A5(U)*A7CU**2) 

04042 

4371 


SINA3 

04043 

4661 


JMS I FMPYLK 

/A3(U)*A5CU**2)*A7(U**31 

04044 

1172 


FPPTM2 


04045 

4660 


JMS I FAOOL 

/A1*A3(U)+A5(U**2)+A7CU**3) 

04046 

4366 


SINAI 

04047 

4661 


JMS I FMPYLK 

/ A 1 (X)+A3(X**3)+A5(X**S)+A7 (X**7) 

04050 

1175 


FPPTM1 

04051 

4313 


JMS NCHK 

/IF NFL AG IS SET, SET SI N CX) *-SIN (X ) 

04052 

5600 


JMP I SIN 

/FAC*SIN(X) 
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04053 

04054 

04055 

04056 

04057 

04060 

04061 

04062 

04063 

04064 

04065 

04066 

04067 
04070 


/******COS I NE ****** 

/USES SIN ROUTINE TO CALCULATE COS(X) 


0000 

cos* 

0 


4660 


JMS I FADDL 

/C08CX)«SINCPI/2*X> 

4402 


PI0V2 


4200 


JMS SIN 


5653 


JMP I COS 

/RETURN 

6000 

FADDL. 

FFADD 


5600 

fmpylk, 

FFMPY 


5722 

FDIVL, 

FFDIV 


5400 

FSUB1L* 

FFSU81 


6117 

FSUBL, 

FFSUB 


6347 

FSQRL* 

FFSQ 


4500 

FIXL* 

FFIX 


5412 

FDIVlLi 

ffdivi 


0003 

C3, 

3 
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04071 

04072 

04073 

04074 

04075 

04076 

04077 

04100 

04101 

04102 


04103 

04104 

04105 

04106 

04107 

04110 

04111 

04112 


04113 

04114 

04115 

04116 

04117 


/ROUTINE TO SEPERATE THE INTEGER AND FRACTIONAL PARTS OF FAC 
/ORIGINAL FAC IS SAVED IN TEMPI, THE INTEGER PORTION OF FAC IS 
/SAVED AT NUM,AND THE FRACTIONAL FORTION OF THE FAC IS LEFT IN THE FAC 


0000 FRACT, 

0 


4535 

JMS I FPUTL 

/SAVE X 

1175 

FPPTM1 


4666 

JMS I FIXL 

/INTEGER PORTION OF X 

1044 

TAO EXP 


3313 

DCA NUM 

/SAVE FIXED FORTION OP X 

4541 

JMS I FLOATL 

/FACuFLOATCFIXCX)) 

4663 

JMS I FSUB1L 

/FAC»X-INT(X)«FRACTION (X) 

1175 

FPPTM1 


5671 

JMP I FRACT 

/RETURN 


/ROUTINE TO CHECK IF FAC<0> IF IT IS, FAC IS NEGATED AND NFL AG IS 
/ SET TO 1 

0000 NHNOLEr 0 
1045 TAD HORO 

7700 SMA CLA 

5311 JMP NFLGST 

4540 JMS I FNEGL 

7001 I AC 

3320 NFLGST, DCA NFLAG 
5703 JMP I NHNDLE 

/ROUTINE TO NEGATE FAC IF NFLAG IS NOT »0 

0000 NCHK, 0 
1320 TAO NFLAG 

7640 SZA CLA 

4540 JMS I FNEGL 

5713 JMP I NCHK 

4113 NUM'NCHK 


/LOC ALSO USED FOR TEMP STORAGE 

/IS NFLAG«07 
/NO-NEGATE FAC 
/YES-RETURN 


/FETCH HIGH ORDER MANTISSA 
/IS IT <0? 

/NO-CLEAR NFLAG 
/YES-NEGATE FAC 
/AND SET NFLAG 
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/•♦♦•♦♦exponential****** 


04120 

0000 expoNi, 

e 

04121 

4 661 

JMS I FMPYLK 

04122 

4405 

L0G2E 

04123 

427 1 

JMS FRACT 

04124 

466 1 

JMS I FMPYLK 

04125 

4410 

LN20V2 

04126 

4535 

JMS I FPUTL 

04127 

1175 

FPPTM1 

04130 

4665 

JMS I FSQRL 

04131 

4660 

JMS I FAODL 

04132 

4413 

EXPBi 

04133 

4667 

JMS I FOIV1L 

04134 

4416 

EXPA1 

04135 

4660 

JMS I FAOOL 

04136 

4421 

EXPA0 

04137 

4664 

JMS I FSUBL 

04140 

1175 

FPPTM1 

04141 

4535 

JMS I FPUTL 

04142 

1172 

FPPTM2 

04143 

4534 

JMS I FGETL 

04144 

1175 

FPPTMl 

04145 

2044 

ISZ EXP 

04146 

7000 

NOP 

04147 

4662 

JMS I FDIVL 

04150 

1172 

FPPTM2 

04151 

4660 

JMS I FAOOL 

04152 

3474 

ONE 

04153 

4665 

JMS I FSQRL 

04154 

1313 

TAO NUM 

04155 

1044 

TAD EXP 

04156 

3044 

OCA EXP 

04157 

5720 

JMP I EXPON1 


/LQC USED FOR TEMP STORAGE BY SIN,ARCTAN 
/Y*XLOG2(E) 

/GET FRACTIONAL PART OF Y 
/(FRACTI0NtY))*(LN2/2) 

/SAVE Y 

/Y**2 

/Bl*Y**2 

/A1/(B1*Y**2) 

/A0*A1/(B1*Y**2) 

/A0-Y*A1/CBI*Y**2) 

/SAVE 

/GET Y 

/MULT, BY 2«2Y 
/2Y/(A0-Y*A1/(B1*Y**2)J 
/l+2Y/{A0-Y*Al/ CBl*Y^*2)) 

/ ti*2Y/(A0-Y+Al/(Bl*Y**2) )J **2*EXP (Y) 
/EXP CX) * (2**N) (EXPY) 

/FAC«EXPON(X) 


4120 nflag*exponi 

/CONSTANT THAT WOULDN'T FIT ELSEWHERE 

04160 0000 TOVPI, 0 /, 6366198 

04161 2427 2427 

04162 6302 6302 
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1 


4200 *4200 


/***••* ARC TANGENT 


04200 

0000 

ATAN, 

0 


04201 

4661 


JMS I NHNDLL 

/IF X«0» SET NFL AG AND NEGATE 

04202 

4535 


JMS I PPUTM 

/SAVE X 

04203 

1175 


FPRTM1 


04204 

4762 


JMS I FSUBM 

/X-l 

04205 

3474 


ONE 


04206 

1045 


TAD HORO 

/GET HI MANTISSA 

04207 

7710 


SPA CLA 

/WAS X>t? 

04210 

5220 


JMP ARGPOL 

/NO-CLEAR GTIFLG 

04211 

4534 


JMS I FGETM 

/YES-ATAN(X)»PI/2-ATAN(l/X3 

04212 

3474 


ONE 

04213 

4760 


JMS I FDIVM 

/1/X 

04214 

1175 


FPPTM1 


04215 

4535 


JMS I FPUTM 


04216 

1175 


FPPTM1 


04217 

7001 


I AC 

/SET GTIFLG 

04220 

3263 

ARGPOLf 

DCA GTIFLG 


04221 

4534 


JMS I FGETM 

/GET X OR 1/X 

04222 

1175 


FPPTM1 


04223 

4764 


JMS I FSQRM 

/Y**2 

04224 

4535 


JMS I FPUTM 

/SAVE 

04225 

1172 


FPPTM2 


04226 

4757 


JMS 1 FADDM 

/ Y**2+B3 

04227 

4446 


ATANB3 


04230 

4761 


JMS I FDIVIM 

/A3/(Y**2+B3) 

04231 

4443 


ATANA3 


04232 

4757 


JMS I FADDM 

/B2*A3/(Y**2*B3) 

04233 

4440 


ATAN82 


04234 

4757 


JMS I FADDM 

/Y**2*B2*A3/(Y**2+B3) 

04235 

1172 


FPPTM2 

04236 

4761 


JMS I FDIVIM 

/A2/(Y**2+B2+A3/CY**2+93J) 

04237 

4435 


ATANA2 

04240 

4757 


JMS I FADDM 

/B1*A2/(Y**2+B2*A3/CY**2+B3)) 

04241 

4432 


ATANB1 

04242 

4757 


JMS I FADDM 

/Y**2*61*A2/ (Y**2*82+A3/(Y**2*B3) ) 

04243 

1172 


FPPTM2 

04244 

4761 


JMS I FDIVIM 

/A1/(Y**2+B1+A2/CY**2+B2*A3/(Y**2*B3 ) ) ) 

04245 

4427 


ATANA1 

04246 

4757 


JMS I FADDM 

/B0+A1/(Y**2+BI+A2/(Y**2+B2+A3/(Y**3+B3) ) ) 

04247 

4424 


ATANB0 

04250 

4756 


JMS I FMPYM 

/ATAN(Y) *X* CB0 + A1/ (Y**2 + B1»A2/ (Y**2>B2 + A3/ CY**2*B3) ) ) ) 

04251 

1175 


FPPTM1 

04252 

1263 


TAD GTIFLG 

/WAS X>1? 

042S3 

7650 


SNA CLA 


04254 

5257 


JMP N6T 

/NO-TEST IF X<0? 

04255 

4763 


JMS 1 FSUB1M 

/ATAN(X)«PI/2-ATAN(l/X) 

04256 

4402 


PIOV2 

04257 

4662 

NGT 9 

JMS I NCHKL 

/IF NFL AG SET, NEGATE FAC 

04260 

5600 


JMP I ATAN 

/FAC*ATAN(X) 

04261 

4103 

NHNOLL# 

nhndle 


04262 

4113 

NCHKL, 

nchk 
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/******naperian logarithm****** 

4200 GTPLG*ATAN 


04263 

0000 

LOGi 

0 

04264 

1045 


TAD HORD 

04265 

7550 


SPA SNA 

04266 

5765 


JMP I ARTR- 

04267 

7106 


CLL RTL 

04270 

7450 


SNA 

04271 

1044 


TAD EXP 

04272 

7041 


cma iac 

04273 

7001 


1 AC 

04274 

7450 


SNA 

04275 

1046 


TAD LORD 

04276 

7640 


SZA CLA 

04277 

5304 


JMP POLYNl 

04300 

3044 


DCA EXP 

04301 

3046 


DC A LORD 

04302 

3045 

LTRPRT i 

DCA HORD 

04303 

5663 


JMP I LOG 

04304 

1044 

POLYNLf 

TAD EXP 

0430S 

3200 


DCA GTFLG 

04306 

3044 


DCA EXP 

04307 

4535 


JMS I FPUTM 

04310 

1175 


FPPTMt 

04311 

4757 


JMS I FADDM 

04312 

4451 


SQRP5 

04313 

4535 


JMS I FPUTM 

04314 

1172 


FPPTM2 

04315 

4534 


JMS I FGETM 

04316 

1175 


FPPTM1 

04317 

4762 


JMS I FSU0M 

04320 

4451 


SQRP5 

04321 

4760 


JMS I FD1VM 

04322 

1172 


FPPTM2 

04323 

4535 


JMS I FPUTM 

04324 

1175 


FPPTM1 

04325 

4764 


JMS I FSQRM 

04326 

4535 


JMS I FPUTM 

04327 

1172 


FPPTM2 

04330 

4756 


JMS I FMPYM 

04331 

4462 


L0GC5 

04332 

4757 


JMS I FADDM 

04333 

4457 


L0GC3 

04334 

4756 


JMS I FMPYM 

04335 

1172 


FPPTM2 

04336 

4757 


JMS I FADDM 

04337 

4454 


LOGC1 

04340 

4756 


JMS I FMPYM 

04341 

1175 


FPPTM1 

04342 

4762 


JMS I FSUBM 

04343 

4465 


ONEHAF 

04344 

4535 


JMS I FPUTM 


/X«0 OR X*0? 

/YES-TAKE ILLEGAL ARGUMENT TRAP 

/NO-HORDs2000? 

/YES»EXP*1? 

/YES-LORO«0? 

/NO-ARG IS LEGAL AMD NOT 1 

/YES-LOG(1)*0 

/SAVE EXPONENT FOR LATER 
/ISOLATE MANTISSA IN FAC 
/SAVE F 

/F*SQR(,5) 

/SAVE 

/F-SQRC.5) 

/Z«F+SQR(,5)/F-SQR(,5) 

/Z**2 

/C5 CZ**2) 

/C3+C5 (Z**2) 

/C3(Z**2)*C5(Z**4) 

/C1*C3(Z**2)*C5(Z**4) 

/C1CZ)*C3(Z**3)+C5(Z**5) 

/Cl CZ)*C3(Z**3)+C5CZ**5)-l/2»LOG2(F) 
/SAVE L0G2CF) 
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04345 

1172 


FPPTM2 


04346 

1200 


TAO GTFLG 

/ 1 

04347 

3044 


OCA EXP 

/SET UP FLOAT 

043S0 

4541 


JMS I FLOATM 

04351 

4757 


JMS I FADOM 

/ I+L0G2 (F) 

04352 

1172 


FPPTM2 

04353 

4756 


JMS I FMPYM 

/ II+L0G2CF)! *LOGE C2)*L0GE(X) 

04354 

4470 


LN2 

04355 

5663 


JMP I LOG 

/FAC»LN(XJ 


4263 


gtiflg»log 


04356 

5600 

FMPYM, 

FFMPY 


04357 

6000 

F ADDM, 

FFADO 


04360 

5722 

FDIVM, 

FFOIV 


04361 

5412 

FDIV1M, 

FF0IV1 


04362 

6117 

F3UBM, 

FFSUB 


04363 

5400 

FSUB1M, 

FFSUBl 


04364 

6347 

FSQRM, 

FFSO 


04365 

6360 

ARTRAP, 

IM 



0134 

FGETM«FGETL 



0141 

F10ATM»FU0ATU 



0135 

FPUTM«FPUTL 
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/CONSTANTS USED BY VARIOUS FUNCTIONS 


04366 

0001 

SINAI, 

1 

/ 1 ,5707949 

04367 

1110 


3110 


04370 

3747 


3747 


04371 

0000 

SINA3, 

0 

/-, 64592098 

04372 

5305 


5325 


04373 

1147 


1167 


04374 

7775 

SINA5, 

7775 

/ ,0794B766 

04375 

2426 


2426 


04376 

2466 


2466 


04377 

7771 

SINA7, 

7771 

/-, 004362476 

04400 

5610 


5610 


04401 

3164 


3164 


04402 

0001 

PI0V2, 

1 

/l, 5707963 

04403 

3110 


3110 


04404 

3756 


3756 


04405 

0001 

L0G2E, 

1 

/l, 442695 

04406 

2705 


2705 


04407 

2434 


2434 


04410 

7777 

LN20V2, 

7777 

/, 34657359 

04411 

2613 


2613 


04412 

4415 


4415 


04413 

0006 

EXPBl, 

6 

/60. 090191 

04414 

3602 


3602 


04415 

7054 


7054 


04416 

0012 

EXPA1 , 

12 

/-601, 80427 

04417 

5514 


5514 


04420 

3104 


3104 


04421 

0004 

EXPASS, 

4 

/12. 015017 

04422 

3001 


3001 


04423 

7301 


7301 


04424 

7776 

ATANB0, 

7776 

/, 17465544 

04425 

2626 


2626 


04426 

6157 


6157 


04427 

0002 

ATANA1 » 

2 

/3. 7092563 

04430 

3553 


3553 


04431 

1071 


1071 


04432 

0003 

ATANB1 i 

3 

/6, 762139 

04433 

3303 


3303 


04434 

0670 


670 


04435 

0003 

ATANA2, 

3 

/-7, 10676 

04436 

4344 


4344 


04437 

5267 


5267 


04440 

0002 

ATANB2, 

2 

/3. 3163354 

04441 

3241 


3241 


04442 

7554 


7554 


04443 

7777 

ATANA3, 

7777 

/-, 26476862 

04444 

5703 


5703 


04445 

4040 


4040 


04446 

0001 

ATANB3, 

1 

/l, 44863154 

04447 

2713 


2713 


04450 

3140 


3140 


04451 

0000 

SGRP5, 

0 

/, 7071068 

04452 

2650 


2650 




/OS/8 

04453 

04454 

04455 

04456 

04457 

04460 

04461 
04463 

04463 

04464 

04465 

04466 

04467 

04470 

04471 
04473 




BASIC RUNTIME SYSTEM 


1170 


1170 

0002 

LOGCi * 

2 

2705 


2705 

2440 


2440 

0000 

LOGCif 

0 

3661 


3661 

0566 


566 

0000 

LOGC5, 

0 

2313 


2312 

5525 


5525 

0000 

ONEHAF, 

0 

2000 


2000 

0000 


0 

0000 

LN2, 

0 

2613 


2613 

4415 


4415 

4000 


FFSIN*SIN 

4053 


FFC05«C0S 

4200 


FFATN* ATAN 

4263 


FFLOG«LOG 

4120 


FF EXP«EXPONi 
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/2 f 88539l3 
/. 9614706 
/ *59897865 

/. 6931472 
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4500 *4500 

/***** *F IX****** 

/ROUTINE TO FIX ANY FLOATING NUMBER IN FAC BETWEEN -2047 AND *2047 TO 
/A TWELVE BIT INTEGER AND LEAVE RESULT IN EXP CLOC 441 


04500 

0000 

FFIX » 

0 



04501 

7200 


CLA 



04502 

1044 


TAD EXP 

/FETCH EXPONENT 


04503 

7540 


SZA SMA 

/IS NUMBER <1? 


04504 

5307 


JMP ,+3 

/NO-CONTINUE ON 


04505 

7200 

FTRPRT, 

CLA 



04506 

5526 


JMP FIXDNEM 

/YES-FIX IT TO ZERO 


04507 

1330 


tad M13 

/SET BINARY POINT AT 11 


04510 

7450 


SNA 

/PLACES TO RIGHT OF CURRENT 

POINT? 

04511 

5325 


JMP FIXDNE 

/NO-NUMBER IS ALREADY FIXED 

then. 

04512 

7500 


SMA 

/ YES-IS NUMBER TOO LARGE TO 

FIX? 

04513 

5732 


JMP I OTRAPA 

/YES-TAKE OVERFLOW TRAP 


04514 

3044 


DCA EXP 

/NO-SET SCALE COUNT 


04515 

7100 

FIXLP. 

CLL 

/0 IN LINK 


04516 

1045 


TAD HORD 

/GET HIGH MANTISSA 


04517 

7510 


SPA 

/IS IT <0? 


04520 

7020 


CML 

/YES*PUT A 1 IN LINK 


04521 

7010 


RAR 

/SCALE RIGHT 


04522 

3045 


OCA HORD 

/SAVE 


04523 

2044 


ISZ EXP 

/DONE YET? 


04524 

5315 


JMP FIXLP 

/NO 


04525 

1045 

FIXDNE, 

TAO HORD 

/YES-ANSWER IN AC 


04526 

3044 


DCA EXP 

/RETURN WITH ANSWER IN 44 


04527 

5700 


JMP I FFIX 

/RETURN 


04530 

7765 

M13. 

• 13 

/•ll DECIMAL 


04531 

0013 

C13» 

13 

/ll qecimal 


04532 

1637 

OTRAPA* 

FO 

/ADDRESS OF VECTOR FOR OVERFLOW TRAP 



/******float****** 





/ROUTINE TO FLOAT ANY 

INTEGER IN EXP CLOC 44) INTO 

FAC 

04533 

0000 

ffloat, 

0 



04534 

1044 


tad EXP 



04535 

3045 


DCA HORD 

/PUT NUMBER IN HI MANTISSA 


04536 

3046 


OCA LORO 

/CLEAR LOW MANTISSA 


04537 

1331 


TAO C13 

/ll (10) INTO EXPONENT 


04540 

3044 


OCA EXP 



04541 

4536 


JMS I FNORL 

/normalize 


04542 

5733 


JMP I FFLOAT 

/RETURN 
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/RANDOM NUMBER GENERATOR 


04543 

0000 

RND, 

0 


04544 

1762 


TAD 

I RSEEDL 

04545 

3042 


DCA 

TEMP3 

04546 

1363 


T*0 

K73 

04547 

4S2 1 


JMS 

I MPYLNK 

04550 

3762 


DCA 

I RSEEDL 

04551 

1762 


TAD 

I RSEEDL 

04552 

7110 


CLL 

RAR 

04553 

3045 


DCA 

HORD 

04554 

3044 


DCA 

EXP 

04555 

7010 


RAR 


04556 

3046 


DCA 

LORD 

04557 

3041 


DCA 

AC 1 

04560 

4536 


JMS 

I FNORL 

04561 

5513 


JMP 

I 1LOOPL 

04562 

2346 

RSEEOt# 

RSEED 

04563 

0073 

K73, 

73 



/GET SEED 

/PUT IN MULTIPLY OPERAND 


/MULTIPLY SEEO BY 73 ' 1 ^ ^ 

/USE LOW ORDER 12 BITS AS NEW SEEO 

/LOW ORDER OF PROOUCT ALSO SERVES 

/AS RANDOM NUMBER 

/SET SIGN TO 0 ANO STORE AS HORD 


/USE 12 BITS AS MANTISSA 
/CLEAR FPP OVERFLOW 
/AND NORMALIZE 
/DONE 
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//////////////////////////////////////////////////////Z////// 
///////////////////////////////////////////////////////////// 
////////////// OVERLAY 2* STRING FUNCTIONS ///////////////// 
///////////////////////////////////////////////////////////// 
///////////////////////////////////////////////////////////// 



0001 


FIELD 1 



*2080 

— - 



NOPUNCH 

i 

3400 


•OVERLAY 

ENPUNCH 

IFNZRO EAE < 
NOPUNCH 

> 

i 


/CHRS 

FUNCTION 

13400 


/RETURNS 1 CHAR STRING 

0000 

CHR t 

0 

13401 

4314 


JMS I INTL 

13402 

4544 


JM$ I BSHL 

13403 

3621 


DCA I SACL 

13404 

7040 


CMA 

13405 

3032 


DCA STRLEN 

13406 

5326 


JMP RETMOD 



/ASC 

FUNCTION 



/RETURNS DECIMAL ASCII 

13407 

0000 

ASC, 

0 

13410 

1621 


TAD I SACL 

134H 

4544 


JMS I BSWL 

13412 

0075 


AND K0077 

13413 

5620 


JMP I FLOATS 



/LEN 

FUNCTION 



/RETURNS LENGTH OF SAC 

13414 

0000 

LEN, 

0 

13415 

1032 


TAD STRLEN 

13416 

7041 


CIA 

13417 

5620 


JMP I FLOATS 

13420 

4144 

FLOATS, FLOATS 

13421 

0321 

SACL# 

SAC 


FOR THE VALUE OF X 


/FIX X TO 12 BIT INTEGER 

/TREAT THE RIGHTMOST 6 BITS AS CHAR 

/AND PUT INTO SAC 

/SET SAC LENGTH TO 1 
/SET TO SMODE ANO RETURN 


FOR 1 CHAR STRING IN FAC 


/GET FIRST TWO CHARS OF STRING 
/WE WANT LEFT CHAR 
/SO ISOLATE IT 

/FLOAT RESULT INTO FAC ANO RETURN 


IN FAC 


/LENGTH OF STRING IN SAC 

/MAKE POSITIVE 

/FLOAT RESULT AND RETURN 
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/STRS FUNCTION 

/RETURNS ASCII STRING FOR NUMBER IN FAC 


13422 

0000 

STR, 

0 


13423 

4657 


JMS I A3C0LK 

/GET ASCII FOR FAC INTO INTERMEDIATE BUFFER 

13424 

3032 


DC A STRLEN 

/ZERO FAC 

13425 

7101 


CLL I AC 


13426 

1111 


TAD SACPTR 


13427 

4526 


JMS I STHINL 

/INITIALIZE STM TO SAC 

13430 

4560 


JMS I STHRST 

/SET OF TO STM TO 0 

13431 

2061 


ISZ TEMP 10 

/MOVE PAST LEADING SPACE 

13432 

1461 


TAD I TEMP 10 

/GET SIGN OF NUMBER 

13433 

1261 


TAD MINUSP 

/IS IT 

13434 

7640 


SZA CLA 


13435 

5240 


JMP STSLP 

/NO-IT IS ,, - ,f SO LEAVE IT ALONE 

13436 

1260 


TAD CCC240 

/YES-REPLACE IT WITH A SPACE 

13437 

3461 


DCA I TEMP10 


13440 

2061 

STSLP, 

ISZ TEMP10 

/BUMP POINTER 

13441 

1461 


TAD I TEMP10 

/GET CHAR FROM INTERMEDIATE BUFFER 

13442 

1055 


TAD M2 1 5 

/IS IT CRT 

13443 

7450 


SNA 


13444 

5326 


JMP RETMOD 

/YES-RETURN IN SMODE 

13445 

1256 


tad mcrmal 

/IS IT ALTMODE? 

13446 

7650 


SNA CLA 


13447 

5240 


JMP STSLP 

/YES-IGNORE IT 

13450 

1461 


TAD I TEMPI 0 

/NO-GET CHAR AGAIN 

13451 

4530 


JMS I STH 

/PUT IN SAC 

13452 

7240 


CLA CMA 


13453 

1032 


TAD STRLEN 

/ ,f BUMP ” SAC COUNTER” 

13454 

3032 


DCA STRLEN 


13455 

5240 


JMP STSLP 


13456 

7616 

MCRMAU, 

76 IS 


13457 

1260 

ASCOLK, 

ASCOUT 


13460 

0240 

CCC240, 

240 


13461 

7525 

MINUSP, 

-25$ 
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/VAL FUNCTION 

/RETURNS NUMBER IN F*C FOR STRING IN SAC J 


13482 

0000 

val, 

0 


13463 

7101 


CLL 

I AC 

13464 

1111 


TAO 

SACPTR 

13465 

4527 


JMS 

I LDHINL 

13466 

4557 


JMS 

I LDHRST 

13467 

1032 


TAD 

STRLEN 

13470 

3222 


OCA 

VALCNT 

13471 

1301 


TAO 

STCGTJ 

13472 

3700 


DCA 

I INPTCL 

13473 

4577 


JMS 

I FFINLK 

13474 

1302 


TAO 

GETCHG 

13475 

3700 


DCA 

I INPTCL 

13476 

5513 


JMP 

I ILOOPL 

13477 

5200 

FFINLK, 

FFIN 

13500 

5350 

INPTCL, 

INPUT ♦ 1 

13501 

4554 

STCGTJ, 

JMS 

I VALLK 

13502 

4542 

GETCHG, 

JMS 

I GETCHl 

13503 

0000 

VALGET, 

0 


13504 

1222 


TAO 

VALCNT 

13505 

7650 


SNA 

CLA 

13506 

5323 


JMF 

► ENVAL 

13507 

4531 


JMS 

I LDH 

13510 

3053 


OCA 

CHAR 

13511 

1053 


TAD 

CHAR 

13512 

1106 


TAD 

KM40 

13513 

7710 


SPA 

CLA 

13514 

1076 


TAC 

\ K0100 

13515 

1077 


TAO 

K200 

13516 

1053 


TAO 

CHAR 

13517 

3053 


DCA 

CHAR 

13520 

2222 


isz 

VALCNT 

13521 

7000 


NOP 


13522 

5703 


JMP 

I valget 

13523 

1054 

ENVAL, 

TAD 

K215 

13524 

3053 


OCA 

CHAR 

13525 

5703 


JMP 

I VALGET 


3422 

VALCNTaSTR 


13526 

7001 

RETMQD, 

1 AC 


13527 

3063 


DCA 

MODESW 

13530 

5513 


JMP 

I ILOOPL 


/INITIALIZE LOH TO SAC 


/COUNT OF CHARS TO INPUT 
/ JMS TO VAUGET 

/PUT IN INPUT ROUTINE IN PLACE OF KR8 

/CALL FPP INPUT ROUTINE 

/JMS TO GETCH 

/RESTORE IN INPUT ROUTINE 

/DONE 


/GET # OF CHARS LEFT 
/ANY MORE? 

/NO-SEND A CR TO FPP INPUT ROUTINE 

/YES-HET CHAR 

/SAVE 

/SUBTRACT 40 
/IS CHAR <40? 

/YES« IT IS IN 300 SERIES 
/TURN ON PARITY BIT 
/BUILD 8 BIT CHAR 

/DECREASE COUNT 

/RETURN WITH CHAR IN AC 


/SET TO STRING MQOE 
/RETURN 
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2200 


•2200 

NOPUNCH 


3600 


•OVERLAY+200 
ENPUNCH 
IFNZRO EAE < 
NOPUNCH 
> 



/DATE 

FUNCTION 

S600 

0000 

DATE, 

0 

3601 

1020 


TAD CDFIO 

3602 

3203 


OCA ,*l 

3603 

3603 


• 

3604 

1031 


TAO PSFLAG 

3605 

7104 


CLL RAL 

3606 

7620 


SNL CLA 

3607 

5213 


JMP N7666 

3610 

1667 


TAD I L7466 

3611 

3040 


DCA TEMPI 

3612 

5215 


JMP DATCOM 

3613 

1670 

N7666, 

TAO I L7666 

3614 

3040 


DCA TEMPI 

3615 

1040 

DATCOM 

, TAD TEMPI 

3616 

7640 


SZA CLA 

3617 

1276 


TAO KKM10 

3620 

3032 


DCA STRLEN 

3621 

6201 


CDF 

3622 

mi 


TAD SACPTR 

3623 

3015 


DCA XR5 

3624 

1040 


TAD TEMPI 

3625 

7106 


CLL RTL 

3626 

7006 


RTL 

3627 

7004 


RAL 

3630 

0074 


AND K0017 

3631 

4260 


JMS ASCON 

3632 

3415 


DCA I XR5 

3633 

1040 


TAD TEMPI 

3634 

7112 


CLL RTR 

3635 

7010 


RAR 

3636 

0271 


AND K0037C 

3637 

4260 


JMS ASCON 

3640 

4544 


JMS 1 BSWL 

3641 

3007 


OCA TEMP2 

3642 

1007 


TAD TEMP2 

3643 

0075 


AND K0077 

3644 

1274 


TAD K5700 

3645 

3415 


DCA I XR5 

3646 

1007 


TAD TEMP2 

3647 

0104 


AND K7700 

3650 

1273 


TAO K0057 

3651 

3415 


DCA I XR5 

3652 

1040 


TAD TEMPI 

3653 

0275 


AND K0007C 


/CDF TO FIELD THAT 17600 SITS IN 
/OF TO 17600 FIELD 
/GET RESIDENT STATUS FLAG 
/TOS/E BIT TO LINK 
/IS PG 17600 AT N7400? 

/NO-GET DATE FROM N7666 

/YES-GET DATE 

/SAVE 


/SAVE 

/GET DATE AGAIN 
/IS IT EMPTY? 

/NO-SET STRING COUNT TO 6 
/YES-RETURN NULL STRING 


/POINTS TO SAC 


/MONTH TO BITS 8-11 
/ISOLATE 

/CONVERT TO ASCII 
/PUT IN SAC 
/DATE 

/DAY TO BITS7-1 1 
/ISOLATE 

/CONVERT TO ASCII 
/SWAP DIGITS 


/DAY DIGIT 1 
/ " / N '* 

/PUT IN STRING 
/DAY DIGITS AGAIN 
/DAY DIGIT 2 
/“N/" 

/ AOD TO STRING 

/DATE 

/YEAR 


/OS/8 BASIC RUNTIME SYSTEM 
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13654 

4280 


JMS ASCON 

13655 

1272 


TAD K0700 

13656 

3415 


OCA I XR5 

13657 

5865 


JMP I RETMDL 

13660 

0000 

ASCON, 

0 

13661 

1266 


TAD DATABA 

13662 

3042 


DCA TEMP3 

13663 

1442 


TAD I TEMPS 

13664 

5660 


JMP I ASCON 

13665 

3526 

RETMDI., 

RETMOD 

13666 

4525 

DAT ABA i 

DATT AB* 1 

13667 

7466 

L7466, 

7466 

13670 

7666 

17666, 

7666 

13671 

0037 

K0037C, 

37 

13672 

0700 

K0700, 

700 

13673 

0057 

K0057, 

57 

13674 

5700 

K570I0, 

5700 

13675 

0007 

K0007C, 

7 

13676 

7770 

KKM10, 

*10 


/ 11 7 N H 

/FINISH OFF STRING 
/RETURN IN SMOOE 


/ ADQR OF DATE TABLE 

/POINTER TO RIGHT SET OF DIGITS 

/GET TWO ASII DIGITS FROM TABLE 


/08/S BASIC RUNTIME SYSTEM 
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/TRACE FUNCTION PRINTER. WHEN TRACE IS ENABLED, THIS ROUTINE 
/PRINTS THE LINE * EACH TIME IT IS STORED 


13677 

0000 

TPRINT, 

0 


13700 

4741 


JMS 

I IMAKEL 

13701 

1342 


TAD 

KEX 

13702 

4522 


J MS 

I XPUT 

13703 

1347 


TAD 

CC240 

13704 

4522 


JMS 

I XPUT 

13705 

1345 


TAD 

DIO 1 A 

13706 

3015 


OCA 

MRS 

13707 

1415 

IGS, 

TAD 

X XRS 

13710 

3277 


DCA 

TPRINT 

13711 

1346 


TAO 

MM2S0 

13712 

1277 


TAD 

TPRINT 

13713 

7650 


SNA 

CIA 

13714 

5307 


JMP IGS 

13715 

1277 

PREST, 

TAD 

TPRINT 

13716 

1055 


tad 

M215 

13717 

7650 


SNA 

CLA 

13720 

5326 


JMP TDONE 

13721 

1277 


TAD 

TPRINT 

13722 

4522 


JMS 

I XPUT 

13723 

1415 


TAO 

I XRS 

13724 

3277 


OCA 

TPRINT 

13725 

5315 


JMP 

PREST 

13726 

1347 

TDONE, 

TAO 

CC240 

13727 

4522 


JMS 

I XPUT 

13730 

1342 


TAO 

KEX 

13731 

4522 


JMS 

I XPUT 

13732 

1343 


TAD 

CCR 

13733 

4522 


JMS 

I XPUT 

13734 

1344 


TAO 

CUF 

13735 

4522 


JMS 

I XPUT 

13736 

4510 


JMS 

I PRINT 

13737 

5336 


JMP 

! 

13740 

5513 


JMP 

I ROOPl 


/MAKE LINE * INTO FIVE DIGITS 

/PRINT "X" 

/PRINT A SPACE 
/ AOOR OF FIRST DIGIT-1 
/IN XR5 

/GET DIGIT OF LINE NUMBER 
/SAVE IT 

/COMPARE IT TO 0 
/IS IT A 0? 

/VES-IGNORE LEADING ZEROES 
/NO-GET CHAR AGAIN 

/IS IT A CRT 

/YES-LINE NUMBER IS PRINTED 
/NO-GET CHAR A THIRD TIME 
/TYPE IT 
/GET NEXT CHAR 

/AND LOOP 

/FOLLOW LINE # WITH A SPACE 
/TYPE ANOTHER "X» 

/TYPE,CR,LF 


/EMPTY RING BUFFER OF TRACE NUMBER 
/DONE 


13741 4067 LMAKEL, LMAKE 

13742 0245 KEX , 245 

13743 0213 CCR , 215 

13744 0212 CLP , 212 

13745 4133 OIG1A, 0X61-1 

13746 7520 MM260, -260 

13747 0240 CC240, 240 


/OS/8 BASIC RUNTIME SYSTEM 
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2«00 ... *2400 ' 

NOPUNCH 

4000 *OVERLAY+400 

ENPUNCH 
IPNZRO EAE « 
NOPUNCH 


/TRACE FUNCTION-ROUTINE TO TURN TRACE ON AND OFF 


14000 

0000 

TRACE, 

0 

14001 

1045 


TAD HORD 

14002 

7650 


SNA CLA 

14003 

5210 


JMP TOFF 

14004 

1212 


TAD KNQP 

14005 

3607 


DC A I HOOKL 

14006 

5513 

TRRE8T> 

JMP I ILOOPl 

1 400? 

1144 

HOOKL, 

TRHOOK 

14010 

1206 

TOFF, 

TAD TRREST 

14011 

5205 


JMR TRHEST-t 

14012 

7000 

KNOP# 

7000 



/ERROR 

ROUTINE 

14013 

0000 

ERRORR, 

0 

14014 

4510 


JMS I PRINT 

14015 

5214 


JMP # »i 

14016 

1354 


TAD ETABA 

14017 

3014 


DCA XR4 

14020 

1414 

FERRLPf 

TAD I XR4 

14021 

3040 


DCA TEMPI 

14022 

1040 


TAD TEMPI 

14023 

4544 


JMS I BSWL 

14024 

0075 


AND K0077 

14025 

1266 


TAD K0300 

14026 

3321 


DCA ESTRNG 

14027 

1040 


TAD TEMPI 

14030 

0075 


AND K0077 

14031 

1266 


TAD K0300 

14032 

3322 


DCA ESTRNG+I 

14033 

1414 


TAD I XR4 

14034 

1657 


TAD I ERRET 

14035 

7640 


SZA CLA 

14036 

5220 


JMP FERRLP 

14037 

4267 


JMS LMAKE 

14040 

1343 


TAO ESTRA 

14041 

3015 


OCA XR5 

14042 

1415 

ETLOP, 

TAD I XR5 

14043 

7510 


SPA 

14044 

5247 


JMP FATCHK 


/GET HI MANTISSA OF ARG 
/WHICH? 

/FOR 0, TURN TRACE OFF 
/TURN TRAC ON 

/BY NOP ING INSTRUCTION AT TRHOOK 


/TURN OFF TRACE 

/BY RESTQREING JMP TO TRHOOK 


/PURGE TTY RING BUFFER 
/BEFORE PRINTING ERROR 
/ADOR OF ERROR TABLE 
/POINTS INTO ERROR TABLE 
/GET 2 CHAR ERROR CODE 
/SAVE 

/FIRST CHAR TO RIGHT 
/STRIP TO b BIT 

/MAKE 6 BIT (LETTERS ONLY ALLOWED) 

/PUT IN MESSAGE 

/2 CHAR CODE AGAIN 

/SECONO CHAR 

/MAKE LETTER 

/PUT IN MESSAGE 

/GET ERROR CODE +1 

/COMPARE AGAINST RETURN ADDRESS 

/MATCH? 

/NO-TRY NEXT ONE 

/MAKE THE LINE # INTO DECIMAL DIGITS 
/ADOR OF MESSAGE 

/GET MESSAGE CHAR 

/OONE? (MESSAGE ENONS WITH - NUMBER 
/YES-OETERMINE ERROR TYPE 




/OS/8 

BASIC 

RUNTIME 

SYSTEM 

14045 

4522 


JMS I XPUT 

14048 

5242 


JMP ETLOP 

14047 

7200 

FATCHKi 

• CLA 

14050 

1657 


TAD I ERRET 

14051 

3213 


DCA ERRORR 

14052 

1355 


TAD MFATAC 

14053 

1014 


TAD XR4 

14054 

7700 


SNA CLA 

14055 

5613 


JMP I ERRO 

14058 

5660 


JMP I STOP! 

14057 

1460 

ERRET, 

ERRD1S 

14060 

0561 

STOPI, 

FSTOPN 

14061 

0000 

NAKED, 

0 

14062 

0074 


AND K001T 

14063 

1265 


TAD K260 

14064 

5661 


JMP I MAKED 

14065 

0260 

K260, 

260 

14066 

0500 

K0300, 

300 
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/NO-PUT CHAR IN RING BUFFER 


/GET RETURN ADDRESS 
/AND STORE IT 
/-AODR OF FATAL ERRORS 
/ ADDR OF THIS ERROR 
/FATAL ERROR? 

/NO-NEXT INST 
/ YES-TERMINATE RUN 


/ISOLATE BCD OIGIT 
/MAKE ASCII OIGIT 


/OS/S BASIC RUNTIME SYSTEM 
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/SUBROUTINE LMAKE-MAKE5 THE CURRENT LINE NUMBER INTO FIVE DIGITS 
/STARTING AT DIG! 


14067 

0000 UMAK&f 

0 


14070 

1065 

TAO LINEHI 

/YESJGET HI LINE 4 

14071 

4261 

JMS MAKEO 

/GET DIGIT 2 

14072 

3335 

DCA 0IG2 

/PUT IN MESSAGE 

14073 

1065 

TAO LINEHI 


1407 4 

7112 

CLL RTR 


14075 

7012 

RTR 


14076 

4261 

JMS MAKEO 

/GET DIGIT 1 

14077 

3334 

DCA 0161 

/AND PUT IN MESSAGE 

14100 

1066 

TAO LINELO 

/DOGQTS 3*4, AND 5 

14101 

4261 

JMS MAKEO 

/GET DIGIT 5 

14102 

3340 

DCA 0IG5 


14103 

1066 

TAO LINELO 


14104 

7112 

CLL RTR 


14105 

7012 

RTR 


14106 

4261 

JMS MAKED 

/GET DIGIT 4 

14107 

3337 

OCA 0IG4 

/AND PUT IN MESSAGE 

14110 

1066 

TAO LINELO 


14111 

7104 

CLL RAL 


14112 

7006 

rtl 


14113 

7006 

RTL 


14114 

4261 

JMS MAKEO 

/GET DIGIT 3 

14115 

3336 

DCA 0IG3 

/message NOW complete 

14116 

5667 

JMP I LMAKE 


/OS/8 BASIC RUNTIME SYSTEM 
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/ERROR MESSAGE 


14117 

0215 

EME3S, 

215 


14120 

0212 


212 


14121 

0000 

ESTRNG, 

0000 


14122 

0000 


0000 


14123 

0240 


240 


14124 

0301 


301 

/A 

14125 

0324 


324 

/ T 

14124 

0240 


240 


14127 

0314 


314 

/L 

14130 

0311 


311 

/ 1 

14131 

0314 


314 

/N 

14132 

0305 


305 

/E 

14133 

0240 


240 


14134 

0000 

DIGl, 

0 


14135 

0000 

DIG2, 

0 


14134 

0000 

DIGS, 

0 


14137 

0000 

DIG4, 

0 


14140 

0000 

DIGS, 

0 


14141 

0215 


215 


14142 

0212 


212 


14143 

4114 

ESTRA, 

EMESS-1 



/ROUTINE TO 

FLOAT FAC 

14144 

3045 

FLOATS, 

DCA 

HORD 

14145 

3044 


OCA 

LORD 

14144 

3007 


DCA 

TEMP2 

14147 

1353 


TAD 

CC 1 3 

14150 

3044 


OCA 

EXP 

14151 

4534 


JMS 

I FNORL 

14152 

5513 


JMP 

I ILOOPL 

14153 

0013 

CC13, 

13 



/MINUS NUMBER TO END ABOVE MESSAGE 
AND RETURN 

/NUMBER TO BE FLOATED IN HORO 
/CLEAR lord 

/CLEAR FPP OVERFLOW 
/SET EXP TO 11 

/normalize 

/RETURN 


/□S/8 BASIC RUNTIME SYSTEM 
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/ERfK)* 

TABLE 




/ENTRY 

FORMAT- 2 CHAR 

6-BIT ERROR COOE (LETTERS ONLY) 



/ 

-CAOOR 

OF CALD-l 

14154 

4155 

ETABA, 

ETAB-1 


14155 

3524 

MFATAL, 

-efatal 


14156 

0602 

ETABi 

0602 

/FB 

14157 

3765 


-FB-1 

/ATTEMPT TO OPEN AN ALREADY OPEN FILE 

14160 

0722 


0722 

/GR 

14161 

1240 


-GR-1 

/RETURN without a gosub 

14162 

2622 


2622 

/V R 

14163 

4774 


-VR-1 

/ATTEMPT TO READ VARIABLE LENGTH FILE 

14164 

2325 


2325 

/SU 

14165 

7154 


-SU-1 

/SUBSCRIPT ERROR 

14166 

0405 


0405 

/DE 

14167 

7220 


-DE-1 

/DEVICE DRIVER ERROR 

14170 

0506 


0506 

/EF 

14171 

7217 


-EF-1 

/LOGICAL EOF 

14172 

1705 


1705 

/OE 

14173 

6264 


-OE- 1 

/DRIVER ERROR WHILE OVERLAYING 

14174 

0615 


0615 

/FM 

14175 

6153 


-FM-1 

/ATTEMPT TO FIX MINUS NUMBER 

14176 

0617 


0617 

/FO 

14177 

6140 


-FO-t 

/ATTEMPT TO FIX NUMBER >4095 

14200 

0616 


0616 

/FN 

14201 

5772 


-FN- 1 

/illegal file * 

14202 

2303 


2303 

/SC 

14203 

5545 


-SC-1 

/ATTEMPT TO OVERFLOW SAC ON CONCATENATE 

14204 

0611 


0611 

/FI 

14205 

5470 


-FI-1 

/ATTEMPT TO CLOSE OR USE UNOPENED FILE 

14206 

0401 


0401 

/DA 

14207 

5461 


-DA-1 

/ATTEMPT TO READ PAST END OF DATA LIST 

14210 

0723 


0723 

/GS 

14211 

5442 


-G5-1 

/TOO MANY NESTED GOSUBS 

14212 

2322 


2322 

/SR 

14213 

4647 


-SR- 1 

/ATTEMPT TO READ STRING FROM NUMERIC FILE 

14214 

2327 


2327 

/SW 

14215 

4515 


-SW-1 

/ATTEMPT TO WRITE STRING INTO NUMERIC FILE 

14216 

2001 


2001 

/PA 

14217 

3362 


-PA-1 

/ILLEGAL ARG IN PQS 

14220 

0603 


0603 

/FC 

14221 

4336 


-FC-1 

/OS/B ERROR WHILE CLOSING TENTATIVE FILE 

14222 

0311 


0311 

/Cl 

14223 

4155 


-Cl- 1 

/INQUIRE FAILURE IN CHAIN 

14224 

0314 


0314 

/CL 

1 422.5, 

4133 


-CL-1 

/LOOKUP FAILURE IN CHAIN 

14226 

U4-6- 

~ ‘ 

mr- rr^r 

/IN .... 

14227 

... im 


-IN-A 

/INQUIRE 'FAILURE "IN OPEN - X 5 

14230 

0417 


0417 

/DO 

14231 

3722 


-DO-1 

/NO MORE ROOM FOR QRIVERS 

14232 

0605 


0605 

/FE 

14233 

3665 


-FE-1 

/FETCH ERROR IN OPEN 

14234 

0217 


0217 

/BO 


/OS/8 

14235 

14238 

14237 

14240 

14241 

14242 

14243 

14244 

14245 
14248 
14247 

14250 

14251 

14252 

14253 


14254 

14255 
14258 
14257 
14280 

14261 

14262 

14263 

14264 

14265 


BASIC RUNTIME SYSTEM 
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3562 

.BQ.l 

/NO MORE FILE BUFFERS AVAILABLE 

0516 

0516 

/EN 

3470 

•EN»i 

/ENTER ERROR IN OPEN 

1106 

1106 

/IF 

3353 

-IF-1 

/ILLEGAL DEVJFILENAME SPECIFICATION 

2314 

2314 

/SL 

7252 

•SL*1 

/STRING TOO LONG OR UNDEFINED 

1726 

1726 

/OV 

1423 

■ 00*1 

/NUMERIC OR INPUT OVERFLOW 

1415 

1415 

/LM 

1417 

•IM*1 

/ATTEMPT TO TAKE LOG OF NEG 1 OR 0 

0515 

0515 

/EM 

4162 

-EM-1 

/ATTEMPT TO EXPONENTIATE A NEG NUMBER 

1101 

1101 

/IA 

6312 

■ I A-l 

/ILLEGAL ARGUMENT IN USER FUNCTION 


/*********************************************************** 


EFATALi 

/ERRORS BEFORE THIS LABEL ARE FATAL 


/******************************************************* 

2205 

2205 

/RE 

4767 

-RE-1 

/ATTEMPT TO READ PAST EOF 

2705 

2705 

/WE 

4745 

■ WE-1 

/ATTEMPT TO WRITE PAST EOF 

0426 

0426 

/OV 

1422 

•DV-1 

/ATTEMPT TO DIVIDE BY 0 

2324 

2324 

/ST 

5333 

-ST-1 

/STRING TRUNCATION ON INPUT 

1117 

1117 

✓ 10 

1103 

-10*1 

/TTY INPUT BUFFER OVERFLOW 



/OS/8 BASIC RUNTIME SYSTEM 
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/SEGS FUNCTION 

/RETURNS SEGMENT OF X$ BETWEEN Y AND Z 
/IF Y««0, THEN Y TAKEN AS 1 
/IF Y*LEN(XS) f NULL STRING RETURNED 
/IF Z<"0,NULL STRING RETURNED 
/IF Z>LEN (XS) t Z IS SET*LEN(XS) 

/IF Z<Y , NULL STRING IS RETURNED 


14266 

0000 

SEG, 

0 

14267 

7001 


I AC 

14270 

3063 


DCA MODESW 

14271 

1045 


TAD HORD 

14272 

7740 


SMA SZA CLA 

14273 

5276 


JMP , *3 

14274 

4534 


JMS I FGETL 

14275 

4476 


ONEl 

14276 

4535 


JMS I FPUTL 

14277 

1175 


FPPTM1 

14300 

4514 


JMS I INTL 

14301 

1032 


TAD STRLEN 

14302 

7740 


SMA SZA CLA 

14303 

5365 


JMP NULLST 

14304 

3064 


DCA INSAV 

14305 

4707 


JMS I ARGPLK 

14306 

4534 


JMS I FGETL 

14307 

0307 

ARGPLK, 

ARGPRE 

14310 

1045 


TAD HORD 

14311 

7750 


SPA SNA CLA 

14312 

5365 


JMP NULLST 

14313 

4514 


JMS I INTL 

14314 

1032 


TAO STRLEN 

14315 

7710 


SPA CLA 

14316 

5331 


JMP ZMINY 

14317 

3046 


DCA LORD 

14320 

1330 


TAD KK 1 3 

14321 

3044 


DCA EXP 

14322 

1032 


TAD STRLEN 

14323 

7041 


CIA 

14324 

3045 


DCA HORD 

14325 

4536 


JMS I FNORL 

14326 

4707 


JMS I ARGPLK 

14327 

4535 


JMS I FPUTL 

14330 

0013 

KK13, 

13 

14331 

6201 

ZMINY, 

CDF 

14332 

4534 


JMS I FGETL 

14333 

1175 


FPPTM1 

14334 

4707 


JMS I ARGPLK 

14335 

4767 


JMS I FISUBL 

14336 

6201 

CDF000, 

CDF 

14337 

1045 


TAD HORD 

14340 

7710 


SPA CLA 

14341 

5365 


JMP NULLST 

14342 

4514 


JMS I INTL 

14343 

7040 


CMA 


/RETURN IN STRING MODE 
/IS Y>0? 

/YES 

/NO-SET Y TO 1 
/SAVE Y 
/FIX Y 

/COMPARE TO STRLEN 
/Y»LEN (XS) ? 

/YES-RETURN THE NULL STRING 
/FAKE POINTER TO SCALAR #0 
/GET ADDR OF Z 
/LOAD Z INTO FAC 

/LOC SKIPPED BY FPP SO WE PUT CONST HERE 
/HI MANTISSA OF Z 
/IS Z<0? 

/YES-RETURN THE NULL STRING 
/NO-FIX Z 

/COMPARE TO STRING LENGTH 
/Z<»LEN(X$) 

/Z>LEN(XS) SO SET ZsLEN(XS) 


/MAKE LENGTH POSITIVE 
/FLOAT LENGTH 
/SAVE NEW Z 


/LOAD Y 

/GET ADDR OF Z 
/Z-Y 

/GET HI ORDER Z-Y 
/IS Y<Z? 

/NO-RETURN NULL STRING 
/FIX Z-Y 

/ADO ONE AND NEGATE 


/OS/S BASIC RUNTIME SYSTEM 
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14344 

3071 


OCA 

STRCNT 

/STORE AS SEG LENGTH 


14345 

4934 


JMS 

I PGETL 



14346 

1175 


FPPTM1 

/RETRIEVE Y AGAIN 


14347 

4514 


JMS 

I INTI 

/FIX Y 


14350 

7110 


Cll 

RAR 

/DIVIDE BY TWO 


14351 

7430 


SZl 




14358 

7001 


I AC 



14353 

7020 


CML 




14354 

1111 


TAO 

SACPTR 

/USE Y/2 AS DISPLACEMENT 

FROM START OF SAC 

14355 

4527 


JMS 

I LDHINL 

/INITIALIZE LDH 


14356 

4557 


JMS 

I LDHRST 



14357 

1111 


TAD 

SACPTR 



14360 

7101 


CU 

I AC 



14361 

4526 


JMS 

I STHINL 

/INITIALIZE STH TO SAC 


14362 

4560 


JMS 

I STHRST 



14363 

3032 


OCA 

STRLEN 

/ZERO SAC 


14364 

5770 


JMP 

I SEGCML 

/USE CODE IN CONCATENATE 

TO 00 THE REST 

14365 

3032 

NULLSTi 

OCA 

STRLEN 

/ZERO SAC 


14366 

5513 


JMP 

I ILOOPL 

/RETURN 


14367 

5400 

FISUBLi 

FFSUBl 



14370 

2222 

SEGCMl, 

SEGCOM 





/OS/S SASIC RUNTIME SYSTEM 
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3000 


*3000 

NOPUNCH 





4400 


*OVERLAY+1000 

ENPUNCH 

IFNZRO EAE * 
NOPUNCH 

* 






/POS FUNCTION 
/RETURNS THE POSITION 

IN XS OF Y$ STARTING AFTER Z 



14400 

0000 

POS, 

0 




14401 

7100 


CLL 




14402 

3064 


OCA INSAV 

/FAKE AS STRING CALL TO STRING 

0 

14403 

4704 


JMS I STF INK 

/FIND Y S 



14404 

3706 


OCA I LOHCOL 

/GET YS CHARS FROM OF N 



14405 

1071 


TAD STRCNT 

/# OF CHARS IN YS 



1440* 

7650 


SNA CLA 

/IS YS THE NULL STRING? 



14407 

5273 


JMP ONERET 

/YES-RETURN I AS POSITION 



14410 

1032 


TAD STRUN 

/NO-# OF CHARS IN XS 



14411 

7650 


SNA CLA 

/IS XS THE NULL STRING? 



14412 

5267 


JMP ZRORET 

/YES-RETURN 0 



14413 

1045 


TAD HORO 

/NO-GET HORD OF Z 



14414 

7710 


SPA CLA 

/IS Z>»0? 



14415 

4516 

PA, 

JMS I ERROR 

/NO-ILLEGAL ARGUMENT 



1441* 

4514 


JMS I INTL 

/FIX Z 



14417 

3301 


DC A POSITN 

/USE IT AS POSITION TO START 

SEARCH 

14420 

1301 


TAO POSITN 




14421 

1032 


tad strlen 

/COMPARE POSITION TO MAXIMUM 

length of 

14422 

7700 


SMA CLA 




14423 

5215 


JMP PA 

/Z IS PAST END OF STRING-ERROR 


14424 

1301 

POSSET, 

TAO POSITN 

/SEARCH START POSITION IN XS 



14425 

7110 


CLL RAR 

/DIVIDE BY 2 



1442* 

7430 


SZL 




14427 

7001 


I AC 




14430 

7020 


CML 




14431 

mi 


TAD SACPTR 

/USE AS DISPLACEMENT OFF START 

OF SAC 

14432 

3302 


DCA LOHPR 

/POINTS TO NEXT CHAR FROM XS 



14433 

7620 


SNL CLA 

/IF LINM0.GET RIGHT HALF 



14434 

7040 


CMA 

/ELSE GET LEFT HALF 



14435 

3303 


DCA LOHPSW 




1443* 

1072 


TAD STRPTR 




14437 

7101 


CLL I AC 

/BUMP PAST CHAR COUNT 



14440 

4527 


JMS I LDHINL 

/INITIALIZE LDH TO YS 



14441 

1032 


TAO STRLEN 

/# OF CHARS IN XS 



14442 

3043 


DCA TEMP4 

/COUNTER 



14443 

1071 


TAD STRCNT 

/# OF CHARS IN YS 



14444 

3042 


DCA TEMP3 

/COUNTER 



14445 

4307 

SRCLP. 

JMS XDGET 

/GET CHAR FROM XS 



1444* 

4531 


JMS I LDH 

/GET CHAR FROM YS 



14447 

6201 


CDF 




14450 

7041 


CIA 

/NEGATE CHAR FRON YS 



14451 

1040 


TAD TEMPI 

/COMPARE WITH CHAR FROM XS 



14452 

7650 


SNA CLA 

/DO THEY MATCH? 




• • # 


/os/e 

BASIC 

RUNTIME SYSTEM 

PAL6-V7 10/24/72 PAGE 77-1 

14453 

53*2 

JMP SCONTU 

/YES-CONTINUE MATCH TO NEXT CHAR IN XS AND VS 

14454 

2301 

ISZ POSITN 

/BUMP POSITION TO BE CHECKED 

14455 

1301 

TAD POSITN 

/GET POSITION NOW CHECKING 

14456 

1032 

TAD STRLEN 

/COMPARE AGAINST LENGTH OF STRING 

14457 

7740 

SMA SZA CLA 

/ANY MORE TO COME? 

144613 

52*7 

JMP ZRORET 

/NO-SEARCH FAILS 

14461 

5224 

JMP POSSET 

/YES-START COMPARING NEXT POSITION 

14462 

2042 

SCONTU# ISZ TEMP3 

/MORE CHARS IN YS? 

14463 

7410 

SKP 

/ YES 

14464 

5271 

JMP RETPOS 

/NO-MATCH SUCCEEDS-RETURN POSITN 

14465 

2043 

ISZ TEMP4 

/MORE IN XS? 

14466 

5245 

JMP SRCLP 

/YES-CONTINUE MATCH 

14467 

4537 

ZRORET# JMS I FCLR 

/NO-SEARCH FAILS-RETURN 0 

14470 

5513 

JMP I ILOOPL 

14471 

1301 

RETPOS, TAD POSITN 

/GET POSITION OF MATCH 

14472 

5705 

JMP I FLOABL 

/FLOAT RESULT AND RETURN 

14473 

4534 

ONERET# JMS I FGETL 

/I INTO FAC 

14474 

447* 

ONE 1 


14475 

5513 

JMP I ILOOPL 


14476 

0001 

ONE 1 # 1 


14477 

2000 

2000 


14500 

0000 

0 


14501 

0000 

POSITN# 0 


14502 

0000 

IDHPR, 0 


14503 

0000 

LDHPSW, 0 


14504 

1*** 

STFINK, STFINO 


14505 

4144 

FLOABL, FLOATS 


14506 

2*47 

LDHCDL# ldhdf 

/ROUTINE TO GET SUCCESSIVE HALFWORDS FROM XS 

14507 

0000 

XOGET , 0 


14510 

1303 

TAD LDHPSW 

/HALFWORD SWITCH 

14511 

7*50 

SNA CLA 

/LEFT OR RIGHT? 

14512 

5323 

JMP XDRITE 

/RIGHT 

14513 

1702 

TAD I LDHPR 

/LEFT-GET CHARS 

14514 

4544 

JMS I BSwL 

/SWAP BYTES 

14515 

0075 

XLCOM, AND K0077 

/ISOLATE CHAR 

14516 

3040 

DCA TEMPI 

/SAVE 

14517 

1303 

TAD LDHPSW 

/halfword SWITCH 

14520 

7040 

CMA 

/FLIP IT 

14521 

3303 

DCA LDHPSW 


14522 

5707 

JMP I XDGET 

/RETURN 

14523 

1702 

XDRITE# TAD I LDHPR 

/GET 2 CHARS 

14524 

2302 

ISZ LDHPR 

/BUMP POINTER TO NEXT WORD 

14525 

5315 

JMP XLCOM 


/OS/8 BASIC RUNTIME SYSTEM 
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/DATE TABLE-USED TO CONVERT BINARY NUMBERS«31 INTO ASCII CHARACTERS 


14528 

6061 

OAT7AB# 6061 

/0t 

14527 

6062 

6062 

/02 

14530 

6063 

6063 

/03 

14531 

6064 

6064 

/04 

14532 

6065 

6065 

/05 

14533 

6066 

6066 

/06 

14534 

6067 

6067 

/07 

14535 

6070 

6070 

/08 

14538 

6071 

6071 

/09 

14537 

6160 

6160 

✓ 10 

14540 

6161 

6161 

/II 

14541 

6162 

6162 

/ 12 

14542 

6163 

6163 

/ 1 3 

14543 

6164 

6164 

/ 1 4 

14544 

6165 

6165 

/ 1 5 

14545 

6166 

6166 

/ 1 6 

14548 

6167 

6167 

m 

14547 

6170 

6170 

/ 1 8 

14550 

6171 

6171 

/19 

14551 

6260 

6260 

/20 

14552 

6261 

6261 

/at 

14553 

6262 

6262 

/22 

14554 

6263 

6263 

/23 

14555 

6264 

6264 

/24 

14558 

6265 

6265 

/25 

14557 

6266 

6266 

/26 

14580 

6267 

6267 

/27 

14581 

6270 

6270 

/28 

14582 

6271 

6271 

/29 

14583 

6360 

6360 

/30 

14584 

6361 

6361 

/31 
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////////////////////////////////////////////////// 
////////////////////////////////////////////////// 
///////// OVERLAY 3-FILE MANIPULATING //////////// 
///////// FUNCTIONS //////////// 

////////////////////////////////////////////////// 
////////////////////////////////////////////////// 

*3400 

/FILE CLOSING ROUTINE 


13400 / 340t- ANOPTR#' 
134011- 7778 ANDLSTf 
13402 } 7775 

13403 V 7773 

13404 *T 7787 .. 

134056 IHh^CLOSE, 
13408-7 7850 
13407 fo 
13410 t ( 4523 « 
13411(1.4550 
13412,^5217 
13413^4731 frn 
13414,^5217 
13415,/ 1330 \^>% 


ANDLST 

7778 /MASKS FOR CLEARING BUFFER AND HANDLER STATUS BITS 
7775 <C 

7773 S// - ? * 

7787 * C* ^ -7 60*0 

TAD ENTNO 8 /GET FILE # 

SNA CLA /IS IT TTY? 

JMP I ILOQP-L /YES-DON'T 00 ANYTHING -?W J & / 7 & .. 

JMS I FIDLE^A^/SEE IF FILE OPEN 
JMS I FTYPL /IS FILE NUMERIC? 

JMP NOCZ /YES-DON'T OUTPUT *Z 

JMS I FTYPSE /NO-IS FILE VARIABLE LENGTH? 

JMP NOCZ /NO-DON*T OUTPUT “Z 

TAO K232 /YES 

JMS I PUTCHL /WRITE A *Z IN FILE $ n $ x /li w 


13417 

4732 

NOCZ, 

JMS 

I WRBLKK 

/WRITE LAST BLOCK IF IT HAS CHANGED 

13420 

4556 


JMS 

X P 1 SWAP 

/RESTORE 17600 

13421 

4731 


JMS 

I PTYPSE 

,t?r7/is file FIXED LENGTH? 

13422 

5242 


JMP 

1 CLOSED 

/YES-NO NEED TO CLOSE THE FILE — 

13423 

1571 


TAO 

I WORDS 

/NO-GET FILE LENGTH 

13424 

3240 


DCA 

CLENG 

/PUT IN CLOSE CALL 

13425 

1174 


TAO 

W0RD11 


13428 

3237 


OCA 

FNAP 

/POINTER TO FILE NAME 

13427 

1563 


TAD 

X WORD0 


13430 

7106 


CLL 

RTL 


13431 

7006 


rtl 



13432 

7004 


RAL 


/GET DEVICE NUMBER INTO BITS 8-11 

13433 

0074 


AND 

K001 7 

/ISOLATE IT 

13434 

6212 


GIF 

10 


13435 

4504 


JMS 

I K7700 

/CALL USR 

13438 

0004 


a 


/CLOSE 

13437 

3437 

FNAP, 

• 


/POINTER TO FILE NAME 

13440 

3440 

CLENG, 

• 



13441 

4516 

FC, 

JMS 

i I ERROR 

/FILE CLOSING ERROR 

13442 

1564 

CLOSED, 

TAO 

I WORD 1 

/GET BUFFER ADDRESS 

13443 

7106 


CLL 

RTL 


13444 

7006 


rtl 


/BUFFER NUMBER INTO AC 

13445 

7004 


ral 


/BITS 10,11 

13448 

0333 


AND 

K0003 ✓ 

/STRIP 

13447 

1200 


TAD 

ANDPTR 

/USE AS INDEX INTO MASKS 

13450 

3040 


OCA 

TEMPI 


13451 

1036 


TAO 

BMAP 

/BUFFER STATUS MAP 


Sol r 1 £*)/hp> 


/OS/8 BASIC RUNTIME SYSTEM 
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13452 0440 AND I TEMPI /CLEAR THE BIT FOR THIS BUFFER 

13453 3036 OCA BMAP 


/OS/6 BASIC RUNTIME SYSTEM 
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i/T* 




13454 

13455 

13456 

13457 

13460 

13461 

13462 

13463 

13464 

13465 

13466 

13467 

13470 

13471 

13472 

13473 

13474 

13475 

13476 

13477 


13501 

13502 

13503 

13504 

13505 

13506 

13507 

13510 

13511 

13512 

13513 

13514 

13515 

13516 

13517 
13520 


0103 

3563 

1342 

3042 

1042 CHECKU 

1334 

3040 

1042 

1162 

7650 

5276 

1440 

0103 

7041 

1563 

7650 

5316 

2042 PSTCHK, 
5261 



0073 ^ 

7640 

5321 

1567 

7106 

7006 

48447^6 

0333 

1200 

3040 RELCOM, 


tCRITN,*) 




PSTCHK, 


TAD I W ORD S' /HEADER WORD 

AND K-NHW-'*' •'/*> f > /STRIP HEADER TO DEVICE # ONLY 

O C A I m iRfi S Tt'/S H 

TAD MM4 /-tf 

DCA TEMP3 /USE AS COUNTER 

TAD TE^P3 /GET# OF FILE TO CHECK 

TAD W0PTRA — /MAKE POINTER TO PROPER W0 HEADER 

OCA TEMPI /SAVE POINTER 

TAD TEMP3 /«# OF FILE WERE CHECKING . 

TAD ENTNO /COMPARE TO CURRENT NUMBER «{ 

SNA CLA , /IS IT THIS ONE? 

JMP PSTCHK /YES-OOJpjXCMEfiJtfjpRlVER 

TAD I TEMPI /GET I fgWflm S e fftT FOR THE FILE OF I 

AND /ISOLATE 

CIA /NEGATE ^ 

TAD l-^+WM/^r/COMPARE TO CURRENT DEVI CE-ir ^ftg. 
SNA CLA /SAME DEVICE? € K % 

JMP CRETN /YES-LEAVE DRIVER IN CORE 

?S7 Tnin>T *rr//»/» L . i 


4 (LtoSL 


)R I VER 

■Or th 




OF INTER! 


AND HWFWGC 
SZA CLA 
JMP TPREL 
TAD I WORD4 1 

DCA^EMPl 
TAD OMAP 
AND I TEMPI 
DCA OMAP 
OCA I W0H04 <*■ 
JMS I P1SWAP 
JMP I ILOOPL 


^^ECK.^ S^MEXI 1 *//fX J 

/SE^lNDLfcR "LENGTH BIT / 

flJro PAGES? 

HHbfREE BOTH PAGES 

jWrls IS THE ONLY file USING HANDLER THEN 

3 M 

/SLIDE BITS'**** OF HANDLER PAGE TO AC BITS 


D//»9P(3rj 

7&0fi- 7/77 // 

01 7P&-73 7? / /#r 

)0 7f0p-7S'7 7 \ J 

|l wtffflrp- /0% 77 h 

70/77 y& 

l *jl/0W'- ff~5 77\9 

// 7 ? 7 )& l 

(g£? 

10,11 o<c 


13521 1567 TPREL, TAD I W0RD4 


13522 

13523 
'13524 

13525 

1352% 

13527 

13530 

13531 

13532 

13533 
M3534 

13535 

13536 


CLL RTL 
RTL 


/ISOLATE HANDLER BUFFER NUMBER v 

/MAKE POINTER TO PROPER &NQ MASlfr (UC 3 Y0&) 

/DRIVER PAGE MAP , . 

/CLEAR HANDLER PAGE BIT (lult/ s*PT cAt^tlp &/ 

/GET RIO OF 17600 AGAIN 
/DONE ^f> I 

/ONLY FILE USING HANDLER , ? 


A tA l V 


0232 *1(232 , 
2357 imPSE, 
33SUr^MfRBLKK, 
0003 *<0003, 

3 5M¥M® T R A , 
.6714 WfPfR, 
6731 


AND K000JV 
TAD AN2PTR 
JMP RELCOM 

232 

FOTYPE _ 
WRBLK I/'S 

w^tr4*/ / ' 

fileiX^, 

FILE24-Y 


/ ISm^X^M&MfiTLE.R BUFFER NUMBER 
/USE AS INDEX TO AND MASK 


8 / Ho// 


ia r 3fWT faOQ 

t. * TA& S kloRkV 

’ -> 3 /'if' 3 -/l% 

yfK) P# ft W . Pa?s ‘ ft" 


TV) /of. 


/STARING AQORESSES of 

/file table entries 


TmP x Contact 
ifit M¥ 

rf4W&> 

c?/«£v Pm 00 l 


/Q3/8 BASIC RUNTIME SYSTEM PA1.8-V7 10/24/72 PAGE 80. 1 

13537 8748 FILE3-H/ > 

13540 8783 PIUEa-f*-/ 



/OS/8 BASIC RUNTIME SYSTEM 
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3600 *3600 


/CHAIN FUNCTION 

/SETS UP COMMAND OECOOER AREA, THEN CHAINS TO 9C0MP.SV 


13600 

4510 

CHAIN, 

JMS I PRINT 

/EMPTY TTY RING BUFFER 

13601 

5200 


JMP ,-l 


13602 

4556 


JMS I PISWAP 

/RESTORE PG 17600 

13603 

4617 


JM8 I DNA1 

/RESTORE SYS RESIDENT 

13604 

4620 


JMS I 0NA2 

/GET FILE NAME IN NAME AREA FROM CURRENT FILE 

13605 

6212 


CIF 10 


13604 

4504 


JMS I K7700 

/CALL USR 

13607 

0010 


10 

/LOCK IN CORE 

13610 

1572 


TAD I WORD7 


13611 

3217 


OCA DNA1 

/FIRST TWO CHARS OF DEV NAME 

13612 

1573 


TAD I WORD10 

/LAST TWO CHARS 

13613 

3220 


OCA DNA2 


13614 

6212 


CIF 10 


13615 

4477 


JMS I U5R 


13616 

0012 


12 

/INQUIRE 

13617 

4334 

DNA1 , 

PSWAP2 

/DEVICE NAME 

13620 

4416 

0NA2, 

nameg 


13621 

0000 

COIN, 

0 


13622 

4516 

Cl, 

JMS I ERROR 

/ERROR 

13623 

1221 


TAD COIN 

/GET ENTRY POINT OF DRIVER FOR CAHIN FILE 

13624 

7640 


SZA CLA 

/IS IT IN CORE? 

13625 

5234 


JMP DISIN 

/YES-NO NEED TO FETCH IT 

13626 

1220 


TAD DNA2 

/NO-DEVICE # INTO AC 

13627 

6212 


CIF 10 


13630 

4477 


JMS I USR 


13631 

0001 


1 

/FETCH HANDLER 

13632 

7001 


7001 

/INTO PAGE 7000 

13633 

5222 


JMP Cl 

/MAKE IT LOOK LIKE INQUIRE ERROR 

13634 

1174 

DISIN, 

TAD WORD11 


13635 

3242 


DCA STB 

/POINTER TO FILE NAME 

13636 

1220 


TAO DNA2 

/GET DEVICE # 

13637 

6212 


CIF 10 


13640 

4477 


JMS I USR 


13641 

0002 


2 

/LOOKUP 

13642 

0000 

STB, 

0 

/POINTER TO FILE NAME 

13643 

0000 

FLN, 

0 


13644 

4516 

CL, 

JMS I ERROR 


13645 

1242 


TAD STB 

/GET STARTING BLOCK 

13646 

6211 


CDF 10 


13647 

3665 


DCA I L7620 

/STARTING BLOCK IN CD AREA 

13650 

1243 


TAD FLN 

/FILE LENGTH 

13651 

7106 


CLL RTL 


13652 

7006 


rtl 


13653 

0266 


AND K77$0 

/PUT IN BITS 0-7 

13654 

1220 


TAD ONA2 

/COMBINE WITH DEVICE # 

13655 

3676 


DCA I CBLK 

/PUT IN CD AREA 

13656 

1076 


TAD K0100 

/SET R SWITCH 

13657 

3664 


OCA I L7644 


13660 

1670 


TAD I L7605K 

/STARTING BLOCK OF COMPILER 

13661 

3276 


DCA CBLK 

/INTO COMPILER READ CODE 


/08/S BASIC RUNTIME SYSTEM 


PALB-V7 10/24/72 PAGE 81-1 


A 13703 

1 / 6 * 

I'V'Y^I 0"7V3 13704 
1 ' r \ V 13705 


13662 

5*61 

jmp i.+i 


13663 

4141 

CSMOVE 

/MOVE THE COMPILER READ TO FIELD 1 AND EXECUTE IT 

13664 

7*44 

L7644, 7644 


13665 

7*20 

L7620, 7620 


13666 

77*0 

K7760, 7760 


13667 

7*21 

L7621, 7621 


13670 

7*05 

L760SK, 7605 

/CODE TO READ IN COMPILER AND START IT 

/THIS CODE GETS MOVED TO FIELD 1 AND EXECUTED FROM 

/LOC 2001-2013 IN FIELD 1 

13671 

*211 

CREAO, CDF 10 


13672 

*202 

CIF 0 


13673 

4*13 

4613 

/"JMS I L7607K" 

13674 

3700 

3700 

/ 3 1 PAGES 

13675 

0000 

0 

/0-757T 

13676 

7*17 

CBLK * 7617 

/STARTING BLOCK OF COMPILER 

13677 

7402 

HLT 

/SYSTEM ERROR, AND SINCE WE ARE PROBABLY CLOBBERED, WE CAN'T REPORT IT 

13700 

*202 

CIF 0 


13701 

5*12 

5612 

/"JMP I ,♦! "-START THE COMPILER 

13702 

7001 

7001 

/STARTING AODR OF COMPILER 

13703 

7*07 

K7607K , 7607 

/LESS THAN THE DESIREO VALUE 


151 


/ROUTINE FOR INTERPRETER EXIT 


I <T13706 

6 13707 

7 13710 
2-013711 
*113712 

kl 2,1 3^1 3713 
f E3l3Tl« 

13715 
-zBT3716 
Z.& 3717 
*713720 
1013721 
3 <13722 
SZ43723 

"SS 137?a 
, ^75- 13725 
]/, 713728 

^tP13727 
1 13730 
£.13731 
313732 
t/13733 
£13734 
413735 
713738 
JTO 1 3737 
1 13740 


6031 PSTOP i 

53*5 

1077 

6036 

13«C<S r 

7640 

5325 « 

6041 

534-3^ "Z-Z. 

135+^r 

6046 

7200 

6041 

532fr-7 

135* 

6046 

7200 

4556 NOCTC 
47-44 jrjT. 
6211 4 
i7#T^ 

6201 
7450 , 

57*5^4 
33 *0-51 
4746T7 
6650 l7tH? 
0000 

^EB|.K, 


KSF //IS THE KEYBOARD FLAG SET? 

'“JWPNQGTC //NG-THERE IS NQ CHANGE *C &EWT US -HERE 

TAO K200 ( a ES-FORCE PARITY BIT 

KRB /GET CHARACTER 

TAO MCC /COMPARE AGAINST *C 

SZA CLA /WAS IT *C? 


f>*TC// ST3J3T 


J7sh-7~cM 


tsf 

JMP ,-i 

TAO KUPARO /YES -ECHO “ 

TLS 

CLA 

TSF 

IMP ,-i 

TAD KC /ECHO »C" 

IIS 

CLA 

*7»IMS I Pt SJ14.P \2l5VRESTORE PG 17^00 

/' 3W I Pj SWAp /RESTORE PG 27\£0 


/ECHO »C" 


TAO I EOBLK 

CDF 

SNA 

J M P _JLJ<L7 6-00 

THtlU<7607 

1600 

0 


TJP77 <rs>f 
7 Y5~?*> ^ "lP > 


'>Uj a 


/GET BLOCK # FOR EOlTUW ll]l “ 

/SHALL WE CALL THE EDITOR? 

/NO JUST CALL OS/8 

/YES-PLT THE BLOCK # IN DRIVER CALL 

/CALL SYS DRIVER 

/READ 7 BLOCKS 

/INTO 0*3377 

/BLOCK # OF EDITORS# 




t 


/OS/8 BASIC RUNTIME SYSTEM 


S^-lSTai 7402 , HUT 

S3 13742 5744* St JMP I .♦! 

jy 137«3 3012 3012 


£'£''13744 
4 13745 
713748 
fe<? 13747 
I 13750 
*2*43751 
3 13752 


4344tf/P2SWAU P8WAP2 
7600 KL7600, 7600 - 

7607 LK7607, 7607 

7604 EOBLK , 7604 - 

7575 MCC, -203 
0336 KUPARO, 336 
0303 KC. 303 
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/SYS ERROR, AND SINCE WE ARE PROBABLY CLOBBERED, WE CAN'T REPORT IT 
/START THE EDITOR 


/OS/8 BASIC RUNTIME SYSTEM 
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4000 


*4000 


& 


/FILE OPENING ROUTINE 

/SITS IN THIS OVERLAY 8ECUASE THERE IS ROOM HERE, AND THE USR IS 
/GOING TO SPIN SYS ANYWAY 

/ALPHANUMERIC, VARIABLE LENGTH 
/ALPHANUMERIC, FIXEO LENGTH 


14000 

1340 ft^bPENAV, 

TAD 

C4 

14001 

7001 

OPENAF , 

I AC 


14002 

5204 


JMP 

OPENNF 

14003 

13400* *OPENNV f 

TAD 

C4 

14004 

3503^flnP.£0iN£^ 

— DC A 

i woRon 

14005 

1102 


TAO 

ENTNQ 

14006 

7050 

7 

SNA 

CLA 

14007 

5513 


JMP 

' I ILOOPL 

14010 

1507 

WHO- 

TAD 

1 W0R04 

14011 

7040 v/ 

SZA 

CLA 

14012 

4510 

F 8 1 

__JMS 

l 1 ERROR- 

14013 

4550 


|.JMS_ 

_I_ PlSWAPj* 

14014 

4741 


JMS 

I NAMEGL 

14015 

0212 


CIF 

10 

14016 

4504 


JMS 

I K7700 

14017 

0010 


18 


14020 

1572 


tad 

I W0R07 

14021 

3227 


DCA 

DEVNA 1 

14022 

1573 


tad 

I RORD10 

14023 

3230 


DCA 

DEVNA2 

14024 

0212 


CIF 

10 

14025 

4477 


JMS 

I USR 

14020 

0012 


12 


14027 

4027 

0EVNA1, 

• 


14030 

4030 

DEVNA2 1 

• 


L4031 

0000 

ENTRYN# 

8 


\/l 4032 

4510 

IN, 

JMS 

\ I ERROR ^ 

14033 

1230 


TAD 

0EVNA2 

14034 

7110 


CLL 

RAR 

14035 

7012 


RTR 


14030 

7012 


RTR 


14037 

1503 


TAD 

I MORD0 

14040 

3503 


OCA 

I NORD0 

14041 

1231 


TAO 

ENTRYN 

14042 

7440 


SZA 


14043 

5734 


JMP 

1 i drivrJ 

14044 

1035 


TAD 

DMAP 

14045 

7110 


CLL 

RAR 

14040 

7420 


SNL 


14047 

5202 


JMP 

FREE70 

14050 

7110 


CLL 

RAR 

14051 

7420 


SNL 


14052 

5273 


JMP 

FREE72 


/NUMERIC, VARIABLE LENGTH 
_^SEJ UP HEADER WO RC 
/IS FILE TTY? 

/YES-OQN*T 00 ANYTHING £ VW 

/GET HANOLER ENTRY 
/IS FILE IDLE? 

/ATTEMPT TO OPEN FILE ALREADY OPEN 
/RESTORE 17600 

/GET FILE DEVICE NAME ANO FILE NAME INTO WORDS 7-14 FROM SAC 

/CALL TO USR 
/LOCK USR IN CORE 

/DEVICE NAME INTO INQUIRE CALL 


/CALL TO USR 
/INQUIRE 
/DEVICE NAME 

/ENTRY POINT 

/GET DEVICE # 

/PUT INTO BITS 


/STORE IN HEADER WORD 
/GET DRIVER AOORESS 
/IS IT IN CORE? 

/YES-NO NEED TO FETCH IT 
/NO-GET MAP OF DRIVER PAGES 
/PAGE 7000 BIT IN LINK 
/IS PAGE 7000 FREE? 

/YES 

/NO-7200 BIT TO LINK 
/IS PAGE 7200 FREE? 

/YES 


tt 




W 


/03/e 

BASIC 

RUNTIME 

SYSTEM 

PAL6-V7 10/24/72 PAGE 83 


14033 

TU0 


CLL RAR 


/NQ*7400 BIT TO LINK ^ 


14054 

7630 


SZL CLA 


/IS PAGE 7400 FREE? 


v/ 14055 

4516 

DO, 

JMS I ERROR 


/NO-NO MORE ROOM FOR DRIVERS 


14036 

1103 


TAD K7400 


/YES-LOAD HANDLER INTO 7400 


14057 

3311 


DCA FETPAG 


/SET UP IN FETCH CALL 


14060 

1340 


TAD C4 


/SET BIT 9 TO SHOW PAGE 7400 OCCUPIED 


14061 

5303 


JMP DFETCH 


/FETCH DRIVER 


14062 

7110 

FREE70, 

CLL RAR 


/PAGE 7200 BIT TO LINK 


14063 

7620 


SNL CLA 


/IS 7200 FREE? 


14064 

7001 


I AC 


/YES-THERE IS ROOM FOR A TWO PAGE HANDLER 

14065 

1335 


TAD K7000 




14066 

3311 


DCA FETPAG 


/SET UP FETCH TO USE PAGE 7000 


14067 

7326 


CLL CLA CML 

RTL 

/TURN ON BIT 10 


14070 

3336 


DCA TPM 


/SAVE IN TWO PAGE SET WORD 


14071 

7001 


I AC 


/SET BIT 11 TO SHOW PAGE 7000 OCCUPIED 


14072 

5303 


JMP DFETCH 


/FETCH HANDLER 


14073 

7110 

FREE72, 

CLL RAR 


/7400 BIT TO LINK 


14074 

7620 


SNL CLA 


/IS 7400 PAGE F REE? 


14075 

7001 


X AC 


/YES-THEN THERE IS ROOM FOR A 2 PAGE HANDLER 

14076 

1342 


TAD K7200 




14077 

3311 


DCA FETPAG 


/SET ADDRESS IN FETCH CALL 


14100 

1340 


TAD C4 




14101 

3336 


DCA TPH 


/IF TWO PAGE LOADED, SET BIT 9 ALSO 


14102 

7326 


CLL CLA CML 

RTL 

/TURN ON BIT 10 TO SHOW PAGE 7200 OCCUPIED 

14103 

1035 

OPETCH, 

TAD DMAP 


/TURN ON PAGE BIT FOR WHERE EHJrrciT WILL 

BE LOADED 

14104 

3035 


DCA DMAP 




14105 

1230 


TAD DEVNA2 


/DEVICE # IN AC 


14106 

6212 


C IF 10 




14107 

4477 


JMS I USR 


/CALL TO USR 


, 14110 

0001 


1 


/FETCH 


J Hill 

4111 

FETPAG, 

• 


/DRIVER ADDRESS 


V 14112 

4516 

FE, 

JMS I ERROR 




14113 

6211 


CDF 10 




14114 

7240 


CLA CMA 




14115 

1737 


TAD I L0037 


/GET ADDR OF HANDLER INFO TABLE 


14116 

1230 


TAD DEVNA2 


/USE THE DEVICE # AS AN INDEX INTO THAT 

TABLE 

14117 

3040 


DCA TEMPI 


/SAVE POINTER 


14120 

1440 


TAD X TEMPI 


/GET THE INFO WORD FOR THE HANDLER JUST 

FETCHED 

14121 

6201 


CDF 




14122 

7700 


SMA CLA 


/IS HANDLER 2 PAGES LONG? 


14123 

5332 


JMP DRAP 


/NO MAP IS COMPLETE 


14124 

1336 


TAD TPH 


/YES-UPDATE DRIVER MAP TO INCLUDE 


14125 

1035 


TAD DMAP 


/SECOND PAGE OF TWO PAGE HANDLERS 


14126 

3035 


DCA DMAP 




14127 

1073 


TAO K0010 




14130 

1563 


TAD I WORO0 


/SET 2 PAGE BIT IN HEADER WORD 


14131 

3563 


DCA I WQRD0 




14132 

1311 

DRAP, 

TAD FETPAG 


/HANDLER ENTRY ADDRESS 


14133 

5734 


JMP I DRIVRL 


/PAGE ESCAPE 


14134 

4200 

drivkl, 

DRIVRN 




14135 

7000 

K7000, 

7000 





/OS/8 BASIC RUNTIME SYSTEM PAL8-V7 10/24/72 PAGE 83-1 

14138 0000 TPH, 0 

1<U37 0037 t.0037 , 37 

14140 000a C4, 4 

14141 4418 NAMEGL» NAMES 

14142 7200 K7200 , 7200 


/ROUTINE TO MOVE THE COMPILER REAPER INTO FIELD 1 AND START IT 


141! 


141-Mnl 

lAhS^Tt) 


1382WttSM0VE# 

3011 
1383 
3040 
1381 W 

3012 ^ 

8201 ^ 

i«n- / 

821 1^ 

3412“^ 

2040<, 

5351 

8212 */ . 
4781 * 1*1 

RTT 5TO07 


"2OT0 

HfTt CST A t 
7785 CSTAC, 


TAD CST A 
DCA XR1 
TAD CST AC 
DCA TEMPI 
TAD KK2000 
DCA XR2 
CDF 

TAD I XR1 
CDF 10 
DCA I XR2 
IS2 TEMPI 
JMP , -5 
CIF 10 
JMS I .»! 


200 if 
CREAD-1 Xb 1 I 
-13 



/POINTES TO COMPILER STARTING CODE 
/COUNTER 

/MOVE TO LOC 2001 IN FIELD 1 

/GET WORD OF CODE 

/MOVE IT 
/DONE? 

/NO 

/YES-START IT 


f/VU? 

/*-/ / € 5 


„ / 4 IU 
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4200 


*4200 

14200 

3567 

DRIVRN, 

DCA X W0RD4 

14201 

1036 


TAD BMAP 

14202 

7110 


CLL RAR 

14203 

7420 


SNL 

14204 

5234 


JMP 01 

14205 

7010 


RAR 

14208 

7420 


SNL 

14207 

5227 


JMP 02 

14210 

7010 


RAR 

14211 

7420 


SNL 

14212 

5222 


JMP 03 

14213 

7010 


RAR 

14214 

7630 


SZL CLA 

14215 

4516 

BO* 

JMS I ERROR 

14218 

1326 


TAD K 1 400 

14217 

3564 


DCA X WORD 1 

14220 

1073 


TAD K00I0 

14221 

5237 


JMP 0UFASS 

14222 

7200 

B3, 

CLA 

14223 

1327 


TAP K 1 000 

14224 

3564 


DCA I NORD1 

14225 

1330 


TAD CC4 

14228 

5237 


JMP 0UFASS 

14227 

7200 

B2 * 

CLA 

14230 

1102 


TAD K0400 

14231 

3564 


DCA I RORD1 

14232 

7326 


CLL CML CLA 1 

14233 

5237 


JMP bufass 

14234 

7200 

Bl* 

CLA 

14235 

3564 


DCA X WOROl 

14238 

7201 


CLA X AC 


/DRIVER ENTRY INTO I/O TABLE 
/GET BUFFER MAP 
/BUFFI BIT TO LINK 
/IS IT FREE? 

/YES-ASSIGN BUFFI 
/BUFF2 BIT TO LINK 
/IS IT FREE? 

/YES-ASSIGN BUFF2 
/BUFF3 BIT TO LINK 
/IS IT FREE 
/YES-ASSIGN BUFF3 
/N0-BUFF4 BIT TO LINK 
/IS IT FREE? 

/NO-NO MORE BUFFERS AVAILABLE 

/SET BUFFER ADDRESS TO 1400 
/SET BUFF4 BIR IN MAP 


/SET BUFFER ADDRESS TO 1000 
/SET BUPF3 BIT IN MAP 


/SET BUFF ADDRESS TO 400 
/SET BUFF2 BIT IN MAP 


/SET BUFF ADDRESS TO 0000 
/TURN ON BUFFI BIT IN MAP 


/OS/8 

SASIC 

RUNTIME 

SYSTEM 
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14237 

1036 

BUF ASS# 

TAD BMAP 


14240 

3036 


OCA BMAP 

/UPDATE BUFFER ASSIGNMENT MAP 

14241 

1563 


TAD I WORD0 

/GET HEADER WORD 

14242 

7112 


CLL RTR 


14243 

7010 


RAR 

/FIXED, VARIABLE BIT TO LINK 

14244 

7620 


SNL CLA 

/IS IT FIXED? 

14245 

5253 


JMP FLOOK 

/YES-DO A LOOKUP 

14248 

1331 


TAD CC3 

/NO-DO AN ENTER 

14247 

4275 


JMS ENTIQK 

/ENTER 

14250 

3572 


DCA I WORD? 

/MAXIMUM LEMGTH IN WORD 7 

14251 

3571 


DCA I WORDb 

/ZERO ACTUAL LENGTH 

14252 

5260 


JMP CLEANP 

/FINALIZE I/O TABLE ENTRY 

14253 

7326 

FLOOK, 

CLL CML CLA 

RTL /2 

14254 

4275 


JMS ENTLOK 

/LOOKUP 

14255 

3571 


OCA I WORDb 

/actual length 

14258 

1571 


TAD I WORDS' 


14257 

3572 


OCA I W0R07 

/ALSO equals maximum length 

14280 

3573 

CLEANP # 

DCA I WORD10 

/ZERO COLUMN POINTER 

14281 

7040 


CMA 

/"I 

14282 

1570 


TAO I WORDS 

/STARTING BLOCK-1 

14263 

3365 


OCA I W0R02 

/CURRENT BLOCK #sST ARTING BLOCK-1 

14264 

1564 


TAD I WOROl 


14265 

3566 


DCA I W0RD3 

/READ/WRITE POINTER AT BEGINNING OF BUFFER 

1 4266 

6212 


CIF 10 


14267 

4477 


JMS I USR 

/CALL TO USR 

14270 

0011 


11 

/USRQUT 

14271 

4556 


JMS I P1SWAP 

/GET RID OF 17600 

14272 

4674 


JMS I NEXRCK 

/DO A NEXREC TO READ IN FIRST FILE BLOCK 

14273 

5513 


JMP I ILOOPL 

/DONE 

14274 

3302 

NEXRCK, 

NEXREC 



/OS/8 BASIC RUNTIME SYSTEM 


PAL8-V7 10/24/72 


PAGE 8b 


,14275 

0000 

ENTLOK, 

0 

l 1427b 


OCA FNOM 

14277 

1174 


TAD WORD 1 1 

14300 

33W^ 

OCA STARTS 

14301 

173'2'<L / \ 

TAD I DEVNAl 

14302 

6212 


CIF 10 

14303 

4477 


JMS I USR 

14304 

4 3 0**9 

FNOM, 

• 

14305 

4305-^ STARTS, 

t 

1430b 

4 30V\ 

FLEN, 

9 

■14307 

4516 

EN, 

JMS I ERROR 

14310 

1305 


TAD STARTS 

14311 

7640 


SZA CLA 

14312 

5321 


JMP FILSTU 

14313 

1306 


TAD FLEN 

14314 

7640 


SZA CLA 

14315 

5321 


JMP FILSTU 

1431b 

1333 


TAD C20 

14317 

1563 


TAD I WORD0 

14320 

3563 


DC A I WORDS 

14321 

1305 

FILSTU, 

TAO STARTS 

14322 

3570 


DC A I W0RD5 

14323 

1306 


TAD FLEN 

1432a 

7041 


CIA 

14325 

5675 


JMP I ENTLOK 

1432b 

1400 

K 1 400 , 

1400 

14327 

1000 

K 1000 , 

1000 

14330 

0004 

CC4, 

4 

14331 

0003 

CC3, 

3 

14332 

4030 

DEVNAU 

DEVNA2 

14333 

0020 

C20, 

20 


/FUNCTION NUMBER IN PLACE 
/POINTER TO FILE NAME 
/INTO CALL 
/DEVICE NUMBER 

/CALL TO USR 
/ENTER OR LOOKUP 


/FILE STARTING BLOCK ft 
/IS IT NON-ZERO? 

/YES-OEVICE IS FILE STRUCTURED 
/NO-GET FILE LENGTH 

/is it empty? 

/NO-DEVICE IS FILE STRUCTURED 

/no-file is read/write only 

/SET READ/WRITE ONLY BIT 
/GET STARTING BLOCK ft OF FILE 
/PUT IN I/O TABLE 
/FILE LENGTH 

/MAKE FILE LENGTH POSITIVE 
/RETURN 
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) L fy L f]y 6334 
"XT 4335 
1-14336 
•/14337 

514340 

Jb 16341 
"*14348 
4343 



6 

7 

> 4o 
? C#l 
*5 Ga- 
l'S 


WJ4344 
•, 14345 
*" 14346 

? ce,pf^fi«347 
^ 7Wt(^#‘550 

i 714352 

KA-t^4%53 

Xmrfrit*>3W 


T5<^C7^5 

S&m- 

,vh*?14368 4544 

' '* €14363 
*914364 
!7 14365 
7614366 
) 14367 
>•14370 
^ 14371 




/SUBROUTINE P2SWAP-RESTORE OS/8 RESIDENT MONITOR PRIOR TO EXIT FROM INTERPRETER# 
/THIS IS DESTRUCTIVE CODE, AND ONCE THIS ROUTINE HAS BEEN EXECUTED 
/THERE IS NO PLACE TO GO BUT OUT, 

/HAS 3 PUNCTIONSl 

/ 11 REMOVES CTRL/C HOOKS FROM SYS DRIVER 

/ 8) RESTORES BATCH CONTROL WORDS TO 87774-87777 

/ 3) IF SYS»TD/8E, RESTORES PAGE 87600 ANO RETURNS CQFS TO PAGE 07600 


0000 

PSWAR8, 0 


1363 

TAD 

K4207K 

3770 

DCA 

I L7600K 

1364 

TAD 

K6213K 

3771 

DCA 

I L7605P 

1031 - 

— T*D 

PSFLA6"" 

7710 

SPA 

CLA 

4768 . 

_ JM8 I TDFIXL 

1365 

TAO 

K7577K 

3011 

DCA 

XR 1 . 

1366 

tad 

K7773K 

3012 

DCA 

XR2 . 

1367 

TAD 

MIN4 

3040 

DCA 

TEMPI 

6211 

CDF 

10 

1411 

TAO 

I XR1 

6221 

CDF 

20 

3418 

DCA 

I XR2 

2040 

isz 

TEMPI 

5352 

JMP t -5 

6201 

CDF 


5734 

JMP 

I PSWAP2 


/REMOVE CTRL/C HOOKS 


"/GET RESIDENT STITIjr FrSG' 

/IS THIS TD8/E SYS? 

/YES-RESTORE PAGE 87600 AND PAGE 07600 


ft n 


p &Jk 


\4*r\ /OXoTb'b 23 c - 

7- / t"3 — ■ 

Mice 3 42-0 ct>P./p 

a . ^ v 


/POINTER TO 17600 
/POINTER TO 87774 

/SET COUNTER TO -4 . _ 

J 17 67 x 

/FETCH BATCH WORD FROM SAVE AREA C 6 F ^ ~ 

/RESTORE IN FIELD 8 
/DONE? 

/NO 


4207 

6213 

7577 

7773 

7774 
7600 
7605 


TDFIXLr 

K4207K, 

K6813K, 

K7577K, 

K7773K, 

MIN4» 

L7600K, 

L7605P, 


PSWP8P 
4807 
6813^ 
7577 
7773 
-4 • 

7600 
7605 


/YE3-WE ARE FINISHED, SO RETURN 


7 46*/ 
£ 



4 I77fi XX* X, -C 7773 

n ** R"^ 7 

40 4170 

i rssrj 

2- 4 1 £ , , , 

3 j"?*/ I 
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4400 *4400 


Of 




/NAMES" 

ROUTINE 

TO TRANSLATE SAC INTO A 6 WORD 

FILE NAME 

BLOCK 9 THEN 

14400 

7706 

/PUT THAT NAME 

BLOCK INTO THE BLOCK SPECIFIED 

BY THE AC 

ON ENTRY 

MCOLQN, 

-72 

14401 

001 a 

MCSPE t 

14 




14402 

4405 

N3A, 

N3 




14403 

0000 

Nl, 

0 

/SCRATCH NAME BLOCK 



14404 

0000 

N2 1 

0 

/DEVICE NAME 



1 4405 

0000 

N3» 

0 



14406 

0000 

N4| 

0 

/FILE NAME 



1 4407 

0000 

N5, 

0 




14410 

0000 

N6, 

0 

/.EXT 



14411 

0423 

DS, 

0423 




14412 

1300 

K0, 

1300 




14413 

7772 

M6, 

• 6 




14414 

0016 

CC16. 

16 




14415 

7774 

MMM4» 

-4 





NAMEG, 0 


tad word? 


14420 

3042 


OCA 

TEMP3 

14421 10X2 


tad 

3TRLEN 

14422 

1214 


TAD 

CC16 

14423 

7710 


SPA 

CLA 

14424 

4516 

IF. 

JMS I ERROR 

14425 

1032 


TAD 

STRLEN 

14426 

3007 


DCA 

TEMP2 

14427 

mi 


TAD 

SACPTR 

14430 

7101 


CLL 

I AC 

14431 

4527 


JMS 

I LDHINL 

14432 

4557 


JMS 

I LOHRST 

14433 

1202 


TAD 

N3A 

14434 

7100 


CLL 


14435 

4526 


JMS 

I STHINL 

14436 

4560 


I STHRST 

14437 

1211 


TAD 

DS 

14440 

3203 


DCA 

Nl 

14441 

1212 


TAD 

K0 A jJ 

14442 

3204 


DCA 


14443 

3205 


OCA 

N3 

14444 

3206 


DCA 

Na 

14445 

3207 


DCA 

N5 

14446 

3210 


DCA 

N6 

14447 

3043 


'~~0C4~TEMP4 

14450 

4531 

NCG. 

JMS 

I LDH 

14451 

3040 


DCA 

TEMPI 

14452 

1040 


TAD 

TEMPI 

14453 

1200 


TAD 

MCOLON 

14454 

7450 


SNA 


14455 

5306 


JMP 

CAD 

14456 

1201 


TAD 

MCSPE 

14457 

7650 


SNA 

CLA 

14460 

5325 


JMP 

SSAD 


/PUT THE NAME IN FILENAME AREA 
/SAVE DESTINATION BLOCK ADDRESS 

/COMPARE STRING LENGTH TO 16 

/TOO MANY CHARS IN DEVI FILENAME 

/STRING LENGTH COUNTER 

/INIT LDH TO PULL CHARS FROM SAC 

/ IN I T STH TO PUT CHARS IN SCRATCH BLOCK 


/INITIALIZE DEV TO DSK : 


/ZERO FILE NAME 
/ZERO INTERMEDIATE COUNTER 
/GET CHAR FROM SAC 
/SAVE 

/IS IT A COLON? 

/YES-CHARS SO FARbDEVICE NAME 
/NO-IS IT A PERIOD? 

/YES-NEXT TWO CHARS»EXTENSION 


/OS/6 BASIC RUNTIME SYSTEM 


14461 

1040 

TAD 

TEMPI 

14462 

4530 

JMS 

I 5TH 

14463 

2043 

ISZ 

TEMP4 

14464 

2007 NCGSi 

ISZ 

TEMP2 

14465 

5250 

JMP 

NCG 


PAL6-V7 10/24/72 PAGE 86-1 

/NO-GET CHAR AGAIN 
/STORE IN NAME BLOCK 
/BUMP COUNT FOR CURRENT SECTION 
/END OF STRING YET? 

/NO-NEXT CHAR 
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14466 

1043 

TAD TEMP4 


14467 

1213 

TAD M6 


14470 

7740 

SMA SZA CLA 

Jn 

14471 

5224 

JMP IF 


14472 

1342 

TAD Nl A 

If \ 

14473 

3011 

DCA XR1 


14474 

7040 

CMA 


14475 

1042 

TAD TEMP3 

r 4 

14476 

3012 

DCA XR2 


14477 

1213 

TAD M6 

x 

14500 

3007 

DCA TEMP2 

'LX 

14501 

1411 MML, 

TAD I XR1 


14502 

3412 

DCA I XR2 


14503 

2007 

ISZ TEMP2 


14504 

5301 

JMP MML 


14505 

5616 

JMP I NAMEG 


/YES-GET CHAR COUNT FOR THIS SECTION (NAME) 
/IS IT >6? 

/YE5-T0Q MANY CHARACTERS IN FILE NAME 
/NO-ADDRESS OF SCRATCH NAME BLOCK 

/•I 

/ AOORESS OF FINAL NAME BLOCK-1 
/MOVE 6 WOROS 


/MOVE NAME WORO FROM SCRATCH AREA TO FINAL OE8T 
/DONE? 

/NO 

/YES-RETURN 




14508 1043 

14507 1215 

14510 7740 

14511 5224 

14512 1205 

14513 3203 

14514 1208 

14515 3204 

14516 3205 

14517 3206 

14520 1202 

14521 7100 

14522 4526 

14523 3043 

14524 5264 


CAD, 


TAD TEMP4 
TAD MMM4 
SMA SZA CLA 
JMP IF 


fro N3 


OCA Nl 

TAD N4 JtUjL 
DC A N2 ol ~ 

DCA N3 


OCA N4 
TAD N3A 
- CLL 

JMS I STHINL 
‘''TOrTEMP4 
JMP NCGS 


/GET CHAR COUNT FOR THIS SECTION 
/COMPARE AGAINST 4 
/TOO MANY CHARS? 

/YES-DEVICE NAME TOO LONG 


/NO-MOVE NEW DEVICE NAME FROM FILE NAME WORDS TO PROPER PLACE 
/CLEAR FILE NAME 

/AND RE-INIT STH FOR NAME AREA 
/ZERO COUNT 



14525 

1043 SSAD, 

TAD TEMP4 


14526 

1213 

TAD M6 


14527 

7740 

SMA SZA CLA 


14530 

5224 

JMP IF 


14531 

3043 

DCA TEMP4 


14532 

7332 

CLA CLL CML 


14533 

1007 

TAD TEMP2 


14534 

7710 

SPA CLA 


14535 

5224 

JMP IF 


14536 

1343 

TAD N6A 


14537 

7100 

CLL 


14540 

4526 

JMS I STHINL 

14541 

5264 

JMP NCGS 


/COUNT FOR THIS SECTION (FILE NAME) 
/TOO MANY? 

/YES-FILE NAME TOO LONG 
/NO-CLEAR COUNT 
/2 IN AC 

/COMPARE AGAINST 4 OF CHARS LEFT 
/TOO MANY CHARS IN EXTENSION 


/INIT STM TO PUT INTO EXTENSION 


14542 4402 Nl A, Nl-1 

14543 4410 N6 A , N6 


(% o 

^ ( c u>l) 
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/SUBROUTINE TO RESTORE PAGE 27600 OF TDS/E DRIVER 
/AND READJUST THE^&DFS> IN FIELD 0 

. 


14544 

0000 

PSNP2P 

, 0_ 



14545 

3031 


'DtlTPSFLAG 

/clear resioent 

STATUS FLAG 

14546 

1362 


TAD CDF20 



14547 

3763 


DCA 1 P2CDFL 

/PUT CDF 20 IN 

SWAP ROUTINE 

14550 

1362 


TAD CDF20 



14551 

3764 


DCA I P2CDL1 



14552 

4556 


JMS I PtSWAP 

/MOVE DOWN PAGE 

27600 

14553 

1365 


TAD K6223 



14554 

3766 


DCA I L7642 



14555 

1367 


TAD K6222 



14556 

3770 


OCA I L7721 



14557 

1367 


TAD K6222 

/RESTORE CDFS IN PAGE 07600 

14560 

3771 


DCA I L7727 



14561 

5744 


JMP I PSWP2P 

/RETURN 


14562 

6221 

CDF20, 

CDF 20 



14563 

1243 

P2CDFL 

, P2CDF 



14564 

1247 

P2C0L1 

, P2CDF1 



1 4565 

6223 

K6223, 

6223 



14566 

7642 

L7642, 

7642 



■i 14567 

6222 

K6222, 

6222 



1457.0 

7721 

L7721 t 

7721 

• 


'>14571 

7727 

L7727, 

7727 
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0000 
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FIELD 0 


inimutunuiunntiiumunninuttiimnininnnnunii 

/ / / / / // / / // / / / // // / // // // // / / // / /// / / ///// // / // / f / / f //////// / / / / / / // / 

/////////////// END OF OVERLAY AREA ///////////////////////////////// 

unumnuiuinnutunnttmnnnnuunHnuHnunuun 
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PAU8-V7 10/24/73 
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IFNZRO EAE « 
NOPUNCH 

» 

IFZERO EAE « 

4800 *4800 

/ 

/FLOATING OUTPUT ROUTINE 


04600 

0000 

TJX 

-*| 

o 

c 

-i 

0 



04601 

7344 


CUA 

CLL 

CMA RA 

04602 

3738 


DCA 

I 

FFNGP 

04603 

3337 


OCA 


KNT 

04604 

1058 


TAD 


EFLG 

04605 

7840 


SZA 


CLA 

04606 

5213 


JMP 


FFMT 

04607 

1340 


T*D 


K8 

04610 

3080 


DCA 


DADP 

04611 

1321 


TAD 


K 1 8 

04612 

3057 


DCA 


FLOW 

04613 

8201 

FFMT, 

CDF 



04614 

1332 


TAD 


KMT 

04615 

3728 


DCA 

I 

DCNTP 

04616 

1045 


TAD 


ACH 

04617 

7450 


SNA 



04620 

5274 


JMP 


F0UT3 

04621 

7700 


SNA 


CLA 

04622 

5225 


JMP 


.♦3 

04623 

4738 


JMS 

I 

FFNGP 

04624 

3738 


DCA 

I 

FFNGP 

04625 

1044 

FOUT1, 

TAD 


ACX 

04626 

7740 


SNA 

SZA 

CLA 

04627 

5234 


JMP 


FQUT2 

04630 

4735 


JMS 

I 

FFMPP 

04631 

5317 


TEN 



04632 

2337 


isz 


KNT 

04633 

5225 


JMP 


FOUT1 

04634 

4308 

F0UT2, 

JMS 


SE 

04635 

4535 


JMS 

I 

FFPUTP 

04636 

5155 


TM3 



04637 

3044 


DCA 


ACX 

04640 

7132 


CLL 

CML 

RTR 

04641 

3045 


DCA 


ACH 

04642 

3048 


DCA 


ACLO 

04643 

1055 


tad 


EFLG 

04644 

7840 


SZA 


CLA 

04645 

1337 


TAD 


KNT 

04646 

7041 


CMA 


I AC 

04647 

1080 


TAD 


DADP 

04650 

7500 


SMA 



04651 

7040 


CMA 



04652 

1330 


TAD 


KK 7 

04653 

7510 


SPA 



04654 

7200 


cla 




/MAKE A MINUS TWO 
/AND STORE IN SIGN WORD 
/CLEAR COUNT WORD 
/IS THIS E FORMAT? 

/NO*F FORMAT 
/YES-GET A 8 

/STORE AS # OF DIGITS AFT DEC PT 
/SET FIELD WIDTH TO 14 C DECIMAL) 

/OF TO PACKAGE FIELD 
/SET # OF SIGNF , DIGITS 
/TO 8 (DON* T PRINT 7TH) 

/DETERMINE IF #»0 

/YES-SKIP DOWN 
/N0-I5 IT NEGATIVE? 

/POSITIVE 
/NEGATE # 

/NEGATIVE-SET FLAG 
/GET # INTO RANGE ,1<*N<1 
/IS EXP. NEG.? 

/NO-GO ON 

/YES-MAKE * GREATER THAN t 
/BY MULTIPLYING BY TEN (DEC.) 
/COUNT THE MULTIPLIES 
/SEE IF >1 YET 

/# IS M-MAKE IT LESS THAN 1 
/STORE IN A TEMPORARY 

/SET FAC TO .5 


/IS THIS E FORMAT? 

/NO-GET COUNT OF MULTIPLIES 
/NEGATE IT 

/AND ADD # OF DIGITS AFT, DC, PT, 
/MUST BE NEGATIVE 

/LIMIT # OF DIVS TO 7 


/OS/8 BASIC RUNTIME SYSTEM PAU-V7 10/24/72 PAGE 92-1 


04655 

i 332 

TAD 

KM7 

/RESTORE 

04656 

3306 

DCA 

SE 

/STORE AS COUNTER 

04657 

5262 

JMP 

• ♦3 



/OS/8 BASIC RUNTIME SYSTEM 
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04860 

4734 


JMS 

i 

FFDVP 

04661 

5317 


TEN 



04662 

2306 


in 


SE 

04663 

5260 


JMP 


• "3 

04664 

4733 


JMS 

i 

FFADP 

04665 

5155 


TM3 



04666 

4306 


JMS 


SE 

04667 

1044 

F0UT4, 

TAD 


ACX 

04670 

7041 


CMA 


I AC 

04671 

4704 


JMS 

i 

ACSRPT 

04672 

4705 


JMS 

i 

AUPT 

04673 

4705 


JMS 

i 

ALIPT 

04674 

1337 

F0UT3, 

TAD 


KNT 

04675 

3047 


DCA 


OPX 

04676 

1056 


TAD 


eflg 

04677 

7640 


SZA 


CLA 

04700 

5343 


JMP 


NOTE 

04701 

3337 


DCA 


KNT 

04702 

1332 


TAD 


KM7 

04703 

5347 


JMP 


ADFH 

04704 

6072 

ACSRPT , 

ACSR 



04705 

6057 

AL1PT, 

AL1 




/ 




/ROUTINE 

J 

: to 

GET 

F AC* i 

04706 

0000 

SE, 

0 



04707 

1044 

SE1* 

TAD 


ACX 

04710 

7750 


SPA 

SNA 

CLA 

04711 

5706 


JMP 

I 

SE 

04712 

4734 


JMS 

I 

FFDVP 

04713 

5317 


TEN 



04714 

7040 


CMA 



04715 

1337 


TAD 


KNT 

04716 

3337 


DCA 


KNT 

04717 

5307 


JMP 


SEi 


/DIVIDE .5 BY TEN THAT # OF TIMES 

/DONE? 

/NO-GO ON 

/YES-ADD IN 0RIG.4-THIS IS ROUNDING 

/INSURE THAT IT IS IN RANGE 
/SHIFT MANTISSA ACCORDING TO EXP 
/0»1 LEFT > l«NO SHIFT»8»1 RIGHT,,.. 
/SHIFT RIGHT (ACX+1) PLACES 
/SHIFT LEFT 2 TO CORRECT 
/(WE ARE LOSING BITSH) 

/DONE-GET COUNT OF MULS, 

/PRESERVE IT 

/IS THIS E FORMAT OUT? 

/NO 

/YES-ZERO COUNT 

/GET MINUS 7-FOR 2 S IGNS , PT , *EXP 
/GO ADD FIELD WIDTH 


/#> 1 ? 

/NO-RETN. 
/YES-DIV, BY TEN 


/REDUCE KNT BY 1 


/OS/8 

BASIC 

RUNTIME 

SYSTEM 
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/CONSTANTS ANO 

POINTERS 


04720 

5150 

OUTDGP, 

OUTOG 



04721 

0046 

K 16 1 

16 



04722 

5600 

FUNK, 

JMP I 

FFOUT 


04723 

5160 

PRNTXP, 

PRNTX 



04724 

5172 

PRZRQP, 

PRZRO 



04725 

5076 

DGTYPP, 

OGTYP 



04728 

5137 

OCNTP, 

OCNT 



04727 

7777 

Ml , 

7777 



04730 

0007 

KK7 , 

7 



04731 

7760 

KM20 , 

•20 



04732 

7771 

KM7 , 

-7 



04733 

6000 

fpadp, 

FFAOO 



04734 

5722 

FFDVP, 

FFOIV 




0135 

FFPUTP«FPUTL 



04735 

5600 

FFMPP, 

ffmpy 



04736 

6135 

ffngp, 

FFNEG 



04737 

0000 

KNTi 

0 



04740 

0006 

K6 , 

6 





/CONTINUATION OF OUTPUT 

mainline 


4743 


*4743 



04743 

1337 

NOTE, 

TAD 

KNT 

/GET COUNT OF MULTIPLIES 

04744 

7500 


SMA 


/IF NOT NEG-MAKE • -2 

04745 

7240 


CL A 

CMA 


04746 

1327 


TAD 

Ml 

/MINUS 1 FOR OEC.PT 

04747 

1057 

AOFW , 

TAD 

FLOW 

/GET THE FIELD WIDTH 

04750 

7041 


CMA 

I AC 

/NEGATE IT 

04751 

3734 


DCA I 

FFDVP 

/STORE WHILE WE CHECK DADP 

04752 

1060 


TAD 

DADP 

/GET DIGITS AFTER DEC, PT 

04753 

7450 


SNA 


/DIO HE SAY NO DEC, PLACES? 

04754 

7040 


CMA 


/YES-TAKE AWAY 1 SINCE NO DEC 

04755 

1734 


TAD I 

FFDVP 

/ADD IN REST 

04756 

7500 


SMA 


/NEG? 

04757 

5723 


JMP I 

PRNTXP 

/NO*PRINT XS-NOT ENUFF ROOM 

04760 

3306 


DCA 

SE 

/STORE AS CNT OF SPACES 

04761 

5364 


JMP 

,♦3 


04762 

1331 


TAD 

KM20 


04763 

4720 


JMS I 

OUTDGP 

/PRINT A SPACE 

04764 

2306 


ISZ 

SE 

/DONE? 

04765 

5362 


JMP 

• *3 

/NO-GO ON 

04766 

7346 


CLA CLt 

CMA RTL 

/MAKE A MINUS 3 

04767 

1736 


TAD I 

FFNGP 

/YES-GET SIGN (»-2 OR 0} 

04770 

4720 


JMS I 

OUTDGP 

/FOR PLUS OR MINUS-PRINT SIGN 

0477 1 

1337 


TAD 

KNT 

/GET MUL COUNT 

04772 

7500 


SMA 



04773 

5724 


JMP I 

PRZRQP 

/PRINT LEADING ZERO 

04774 

7041 


CMA 

I AC 


04775 

4725 


JMS I 

DGTYPP 

/OUTPUT 'KNT* DIGITS 

04776 

1060 

PROCP# 

TAD 

DA DP 

/CHECK DADP FOR 0 

04777 

7650 


SNA 

CUA 

/DON'T PRINT IF DAQP*0 


/fall THROUGH PAGE BOUNOARYlil 

/'SNA CLA' MUST BE LAST LOC. ON PAGEJU 

/(CURSE YOU B.C.) 


/OS/8 SASIC RUNTIME SYSTEM 


PAL6-V7 10/24/72 PAGE 95 


5000 PAGE 

/*******FALL THROUGH PAGE BOUNDARY TO HERE******* 

05000 5203 JMP GKNT /MUST BE FIRST LOC, OF PAGE 1 l 

05001 7144 POP, CLA CLL CMA RAL 


05002 

4350 


JMS 


OUTDG 

05003 

1754 

GKNT, 

TAD 

I 

KNTP 

05004 

7750 


SPA 

SNA 

CLA 

05005 

5225 


JMP 


GD 

05008 

1754 


tad 

I 

KNTP 

05007 

7040 


CMA 



05010 

3276 


OCA 


DGTYP 

05011 

1060 


TAD 


DADP 

05012 

7040 


CMA 



05013 

3357 


OCA 


SEP 

05014 

5216 


JMP 


PR 

05015 

4350 

Pin, 

JMS 


OUTDG 

05018 

2276 

PR, 

ISZ 


DGTYP 

05017 

7410 


SKP 



05020 

5223 


JMP 


PS 

05021 

2357 


ISZ 


SEP 

05022 

5215 


JMP 


PZR 

05023 

1754 

PS, 

tad 

I 

KNTP 

05024 

7041 


CMA 


I AC 

05025 

1060 

GD, 

tad 


DADP 

05026 

7540 


SMA 


SZA 

05027 

4276 


JMS 


DGTYP 

05030 

7200 


CLA 



05031 

1056 


TAD 


EFLG 

05032 

7640 


SZA 


CLA 

05033 

5266 


JMP 


OONEF 

05034 

4344 


JMS 


OUT 

05035 

0305 


305 



05036 

1047 


TAD 


QPX 

05037 

7740 


SMA 

SZA 

CLA 

05040 

7326 


CLA 

CLL 

CML RTL 

05041 

4344 


JMS 


OUT 

05042 

0253 


253 



05043 

1334 


TAD* 


KM 1 44 

05044 

3050 


DCA 


OPH 

05045 

7344 


CLA 

CLL 

CMA RAL 

05046 

3276 


OCA 


DGTYP 

05047 

1047 


TAD 


OPX 

05050 

7510 


SPA 



05051 

7041 


CMA 


I AC 

05052 

3046 

LOOP, 

DCA 


ACLO 

05053 

3045 


DCA 


ACM 

05054 

7100 


CLL 



05055 

4736 


JMS 

I 

0V24PT 

05056 

1046 


TAD 


ACLO 

05057 

4350 


JMS 


OUTDG 

05060 

1335 


TAD 


KM12 

05061 

3050 


DCA 


OPH 

05062 

1045 


TAD 


ACH 

05063 

2276 


ISZ 


DGTYP 

05064 

5252 


JMP 


LOOP 


/PRINT DEC, PT, 
/GET COUNT AGAIN 


/GET COUNT 
/NEGATE 

/STORE AS COUNTER 
/SAME FOR DADP 
/GO ON 

/PRINT A ZERO 


/DONE 

/PRINT 'E* 

/GET PRESERVED COUNT OF MULS 
/DETERMINE SIGN 
/MAKE A 2 

/PRINT MINUS OR PLUS SIGN 
/SET TO DIV BY 100 

/SET LOOP COUNTER 

/GET THE COUNT 

/NEGATE IF NEGATIVE 
/STORE FOR OIV, ROUTINE 
/HI ORD. MUST BE ZERO 
/PREVENT DIVIDE OVERFLOW 1 1 
/DIVIDE BY 100 
/GET THE QUOTIENT 
/OUTPUT HUNDREDS PLACE 
/NOW DIV, BY 10 

/DIV, REM, BY 10 
/DONE? 

/NO-GO DO CALCULATE , PRINT TENS PLACE 


/OS/® BASIC RUNTIHf SYSTEM PAIS-VT 10/24/72 PAGE 95-1 

JMS 


05065 4350 


OUTDG /VES-REMQNES PiACEJ IS IN AC-PRINTJT 


/OS/8 

BASIC 

RUNTIME 

SYSTEM 

PAL8-V7 10/24/72 PAGE 96 

05086 

1055 

DONEF, 

TAD 

SWIT2 

/SHOULD WE PRINT CR/LF? 

05067 

7650 


SNA 

CLA 


05070 

5742 


JMP I 

FLING 

/NO 

05071 

4344 


JMS 

OUT 


05072 

0215 


215 



05075 

4344 


JMS 

OUT 


05074 

0212 


212 



05075 

5742 


JMP I 

FLING 




/OUTPUT 

DIGITS 

OF FAC 

BY MULTIPLYING BY TEN 



/THE HIGH ORDER 

OVERFLOW IS THE DIGIT 

05076 

0000 

DGTYP, 

0 



05077 

7041 


CMA 

1 AC 


05100 

3357 


DCA 

SEP 

/STORE COUNT PASSED 

05101 

1045 

DTI, 

TAD 

ACM 

/GET FAC AND STORE FOR LATER 

05102 

3050 


DCA 

OPH 


05103 

1046 


TAD 

ACLO 


05104 

3051 


OCA 

QPL 


05105 

4740 


JMS I 

AL1PP 

/SHIFT FAC LEFT 1 a FAC*2 

05106 

7004 


RM. 


/OVERFLOW TO TM3 

05107 

3355 


DCA 

TM3 


05110 

4740 


JMS I 

AL1PP 

/SHIFT LEFT AGAIN a FAC*4 

05111 

1355 


TAD 

TM3 

/SHIFT OUT OVERFLOW 

05112 

7004 


ral 



05113 

3355 


OCA 

TM3 


05114 

3042 


DCA 

AC2 

/MUST BE 0 FOR OADO 

05115 

4741 


JMS I 

OADDP 

/ADD ORIC FAC • FAC*5 

05116 

7004 


RAL 


/ADD OVERFLOW TO TM3 

05117 

1355 


TAD 

TM3 


05120 

3355 


DCA 

TM3 


05121 

4740 


JMS I 

AL1PP 

/SHIFT FAC 1 LEFT ■ FACM0U 

05122 

1355 


TAO 

TM3 

/OVERFLOW IN TM3 IS FIRST DIGIT 

05123 

7004 


ral 



05124 

2337 


isz 

DCNT 

/DONE ALL SIGNIF, DIGS,? 

05125 

5330 


JMP 

.♦3 

/NO-GO ON 

05126 

7240 


CLA 

CMA 

/yes-print ZEROS 

05127 

3337 


DCA 

DCNT 

/FROM NOW ON 

05130 

4350 


JMS 

OUTDG 

/PRINT DIGIT (HI ORD, OVRFLOW) 

05131 

2357 


ISZ 

SEP 

/DONE REQUIRED? 

05132 

5301 


JMP 

DTI 

/NOPE 

05133 

5676 


JMP I 

OGTYP 

/ YUP 

05134 

7634 

KM144, 

-144 



05135 

7766 

KM12, 

• 12 



05136 

5745 

0V24PT, 

DY24 



05137 

0000 

DCNT, 

0 

/COUNT 

OF SIGNF, DIGITS 

05140 

6057 

AL1PP, 

AL1 



05141 

6157 

OADDP, 

OAOD 



05142 

4722 

FLING, 

PLINK 




• • # 


/OS/8 

BASIC 

RUNTIME 

SYSTEM 
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05143 

4778 

PRDCPP# 

PRQCP 





/ 

/OUTPUT 

ROUTINE 


05144 

0000 

OUT , 

0 



05145 

1744 


TAO I 

OUT 

/GET THE CHAR 

051 48 

3413 


OCA I 

XR3 

/STORE CHAR IN INTERMEDIATE BUFFER 

05147 

5744 


JMP I 

OUT 




/ 

/OUTPUT 

DIGIT 



05150 

0000 

/ 

OUTOG f 

0 



05151 

4344 


JMS 

OUT 


05152 

0280 


280 



05153 

5750 


JMP I 

OUTOG 

/RETN 

05154 

4737 

KNTP# 

KNT 



05155 

0000 

TM3, 

0 



05158 

0000 


0 



05157 

0000 

SEP, 

0 



05180 

7200 

PRNTX, 

CIA 



05181 

1057 


TAO 

FLOW 

/GET FIELD WIDTH 

05182 

7040 


CM A 


/MUST BE NEGATIVE 

05183 

3357 


OCA 

SEP 

/USE AS COUNTER 

05184 

2357 

PRNTX 1 | 

ISZ 

SEP 

/DONE ALL? 

05185 

7410 


SKP 


/NO-GO ON 

05188 

5288 


JMP 

DONEF 

/YES-RETN. 

05187 

4344 


JMS 

OUT 

/PRINT ASTERISK 

05170 

0252 


252 


/ASTERISK 

05171 

5384 


JMP 

PRNTX! 




f 

/PRINT 

A LEADING ZERO 


05172 

7200 

j 

PRZRU, 

CLA 



05173 

4350 


JMS 

OUTOG 


05174 

5743 


JMP I 

PROCPP 




/OS/8 BASIC RUNTIME SYSTEM 
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/ 

/FLOATING POINT INPUT ROUTINE 


/ 



5200 


PAGE 


•5200 

0000 

FFINi 

0 



05201 

7240 


CLA 


CMA 

05202 

5711 


DCA 

I 

FDVPT 

05205 

7040 


CMA 



•5204 

3300 


DCA 


• SIGNF 

•5205 

0201 


CDF 



0520S 

3052 


DCA 


OSWIT 

05207 

3044 

OECONVr 

DCA 


ACX 

05210 

3040 


DCA 


ACLO 

05211 

0200 

P200I 

200 



05212 

3045 


DCA 


ACH 

•5215 

3305 

DECNV ' 

DCA 


DNUMBR 

•5214 

4522 

DECON, 

JMS 


GCHR 

05215 

5232 


JMP 


FFINI 

0521S 

2052 


18Z 


DSWIT 

05217 

2305 


ISZ 


DNUMBR 

05220 

4710 


JMS 

I 

FMPYLL 

05221 

5317 


TEN 



05222 

4535 


JMS 

I 

FPUTL 

05225 

1175 


FPPTMi 

05224 

4534 


JMS 

I 

FGETL 

•5225 

5514 


TP 



05224 

4934 


JMS 

I 

FNQRL 

05227 

4712 


JMS 

I 

FAOOLL 

05250 

1175 


FPPTMI 

05251 

5214 


JMP 


DECON 

05252 

2711 

FFINI, 

ISZ 

I 

FDVPT 

05255 

5241 


JMP 


FIG02 

•5254 

2315 


ISZ 


TP1 

05255 

2315 


ISZ 


TPt 

05230 

7410 


SKP 


CLA 

05237 

5213 


JMP 


DECNV 

05240 

3305 


DCA 


DNUMBR 

05241 

2300 

FIG02# 

ISZ 


SIGNF 

05242 

4703 


JMS 

I 

FFNEGP 

05243 

7240 


CLA 


CMA 

05244 

3300 


DCA 


SIGNF 

05245 

1053 


TAD 


CHAR 

05248 

1306 


TAD 


KME 

05247 

7650 


SNA 


CLA 

05250 

4322 

GETE, 

JMS 


GCHR 

05251 

5260 


JMP 


EDON 

05252 

1043 


TAD 


TM 

05253 

7106 


CLL 


RTL 

05254 

1043 


TAD 


TM 

05255 

7104 


CLL 


RAL 

05256 

1315 


TAD 


TP1 

05257 

5250 


JMP 


GETE 


/INITIALIZE PERIOD SWITCH TO -1 
/SET SIGN SWITCH TO -1 

/OF TO PACKAGE FIELD 
/ZERO CONVERSION SWITCH 
/ZERO OUT THE FAC I 


/ZERO # OF DIGITS SINCE DEC, PT, 
/GET A CHAR, FROM TTY, 
/TERMINATOR- 

/DIGIT-BUMP CONVERSION SWITCH 
/BUMP # OF DIGITS-# IS STORED IN 
/"FMPY TEN" 

/"FPUT I TM3PT" 

/"FGET TP" 

/"FNQR" 

/"FAOD I TM3PT" 

/GO ON 

/HAVE WE HAD A PERIOD VET? 
/YES-GO ON 

/NO-IS THIS A PERIOD! 


/YES-ZERO DIG, COUNT AFTER DEC, PT, 
/AND GO CONVERT REST 
/NO-TERMINATOR-ZERO COUNT OF 
/DIGITS AFTER DECIMAL POINT, 

/IS # NEGATIVE? (DID WE GET - SIGN?) 

/YES-NEGATE IT 

/RESET SIGN SWITCH FOR EXP, 

/NO-WAS THE TERMINATOR AN *E»? 


/YES-GET A CHAR, OF EXPONENT 
/END OF EXPONENT 
/GOT DIG, OF EXP-STOREO IN TP1 
/MULT. ACCUMULATED EXP BY 10 


/ADD DIGIT 
/CONTINUE 


/OS/8 

BASIC 

RUNTIME 

SYSTEM 
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05260 

1043 

EDON, 

TAD 

TM 

/GET EXPONENT 

05261 

2300 


isz 

SIGNF 

/WAS EXPONENT NEGATIVE? 

05262 

7041 


CMA 

I AC 

/yes-negate it 

05263 

7041 


cma 

I AC 

/AND CALC. DNUMBR - EXPON. 

05268 

1305 


TAD 

DNUMBR 

/GET 4 TIMES TO DIV MANTISSA BY TEN 

05265 

7141 


CLL CMA 

I AC 


05266 

7510 


SPA 


/RESULT POSITIVE? 

05267 

7161 


CU CMA 

CML I AC 

/NO-MAKE POS, AND SET LINK 

05270 

7040 


CMA 


/NEGATE FOR COUNTER 

05271 

3305 


DCA 

DNUMBR 

/AND STORE 

05272 

7004 


ral 


/LINM1-DIV»«0-MUL. * BY TEN 

05273 

1307 


TAD 

MOV 

/FORM CORRECT INSTRUCTION 

05274 

3300 


DCA 

SIGNF 

/AND STORE FOR EXECUTION 

05275 

2305 

FCNT# 

ISZ 

DNUMBR 

/DONE ALL OPERATIONS? 

05276 

5300 


JMP 

SIGNF 

/NO 

05277 

5600 


JMP I 

FFIN 

/YES-RETURN 

05300 

0000 

SIGNF, 

0 


/NO- MUL OR DIV, MANTISSA 

05301 

5317 


TEN 


/BY TEN 

05302 

5275 


JMP 

FCNT 

/GO ON 

05303 

6135 

ffnegp, 

FFNEG 



05304 

5155 

TM3PT , 

TM3 



05305 

0000 

dnumbr, 

0 



05306 

7473 

KME, 

-305 



05307 

4710 

MOV, 

JMS I 

t + 1 

/THESE 3 WOS, MUST BE IN THIS ORDER 

05310 

5600 

FMRYLL, 

FFMPY 


05311 

5722 

FOVPT , 

FFDIV 


MMiniiiinniii 

05312 

6000 

FADOLL, 

FFADD 


05313 

0012 

KK12, 

12 



05314 

0013 

TP, 

13 



05315 

0000 

TP1, 

0 



05316 

0000 


0 



05317 

0004 

TEN, 

4 



05320 

2400 


2400 



05321 

0000 


0 
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/ROUTINE TO GET A CHAR FROM THE TTY AND SEE IF IT IS DIGIT 
/OR A TERMINATOR. 




/RETURN TO CAUL ♦ 1 IF 

TERMINATOR, TO CALL ♦ 2 IF DIGIT 



/THIS 

ROUTINE MUST NOT 

MODIFY THE MOJ1 

05322 

0000 

GCHR, 

0 



05323 

3043 


OCA 

TM 

/STORE ACCUMULATED EXPONENT (MAYBE) 

05324 

4347 


JMS 

INPUT 

/GET A CHAR FROM TTY, 

05325 

1053 


TAD 

CHAR 

/PICK IT UP 

05326 

1362 


TAO 

PLUS 

/WAS IT PLUS SIGN? 

05327 

7450 


SNA 



05330 

5335 


JMP 

DECONI 

/YES-GET ANOTHER CHAR, 

05331 

1363 


TAO 

MINUS 

/NO WAS IT MINUS SIGN? 

05332 

7640 


SZA 

CLA 


05333 

5336 


JMP 

• *3 


05334 

3300 


OCA 

SIGNF 

/YES-FLIP SWITCH 

05335 

4347 

DECONI 

, JMS 

INPUT 

/GET A CHAR, 

05336 

1053 


TAD 

CHAR 


0533T 

1346 


TAO 

K7506 

/SEE IF ITS A DIGIT 

05340 

7100 


CLL 



05341 

1313 


TAO 

KK12 


05342 

3315 


OCA 

TP t 

/STORE FOR LATER 

05343 

7430 


SZL 


/DIGIT? 

05344 

2322 


ISZ 

GCHR 

/YES-RETN, TO CALL*2 

05345 

5722 


JMP 

I GCHR 

/NO-RETN, TO CALL*! 

05346 

7506 

K7506, 

7506 



/INPUT 

ROUTINE "IGNORES 

LEADING SPACES 

05347 

0000 

INPUT, 

0 



05350 

4542 


JMS 

I GETCHL 

/USE OUR ROUTINE TO GET CHAR 

05351 

1052 


TAO 

DSWIT 

/GET TERMINATOR 

05352 

7640 


SZA 

CLA 

/VALID INPUT YET? 

05353 

5360 


JMP 

IOUT 

/YES-CONTINUE 

05354 

1053 


TAD 

CHAR 

/NO-GET CHAR 

05355 

1361 


TAO 

M240 

/COMPARE AGAINST SPACE 

05356 

7650 


SNA 

CLA 

/IS IT A SPACE? 

05357 

5350 


JMP 

INPUT* 1 

/YES-IGNORE IT 

05360 

5747 

IOUT, 

JMP 

I INPUT 

/RETURN 

05361 

7540 

M240, 

•240 



05362 

7525 

PLUS, 

• 253 



05363 

7776 

MINUS, 

i 

253* 

255 




/ROUTINE TO 
/ 

DECIDE CALLING MODE IN LIEU OF "SPECIAL MODE" PROBLEMS 

05364 

0000 

PATCHF 

9 0 



05365 

7440 


SZA 


/IS AC EMPTY 

05366 

5371 


JMP 

RTN2 

/NO-THIS IS ALWAYS SI MODE WITH ADDR IN AC 

05367 

1037 


TAO 

FF 

/YES-GET SPECIAL MODE FLIP-FUOP 

05370 

7640 


SZA 

CLA 

/IF ON, THE ZERO AC MEANS ADDRESS OF 0 

05371 

2364 

RTN2 9 

ISZ 

PATCHF 

/USE AC AS ADORESS OF OPERAND 

05372 

5764 


JMP 

I PATCHF 

/RETURN 


/OS/S BASIC RUNTIME SYSTEM PAL8-V7 10/24/72 PAGE 101 


5400 PAGE 

/ 

/inverse floating subtract-uses floating ado 
/UFSW1U-THIS IS OP-FAC 
/ 


05400 

0000 

FFSUBlf 

0 



05401 

4555 


JMS I PATCHP 

/WHICH MODE? 

05402 

1000 


TAD I 

FFSUB1 

/called 8Y uger^get aodr, OF OP. 

05401 

4044 


JMS I 

ARGETL 

/GO PICK UP OPERANO 

05404 

0201 


CDF 



05405 

4010 


JMS I 

FFNEGA 

/NEGATE FAC 

0S40S 

1200 


TAO 

FFSUB1 

/AND GO ADO 

0540? 

5011 


JMP I 

SUB0P 


05410 

0135 

FFNEGAf 

FFNEG 



05411 

0125 

SUB0P, 

A 

SUBS 





/INVERSE FLOATING DIVIDE 



/FSNlTCHil 





/THIS IS OP/FAC 

i 



05412 

0000 

FFOIVl, 

0 



05413 

4555 


JMS I PATCHP 

/WHICH MODE OF CALL? 

05414 

1012 


TAD I 

FFOIVl 

/CALLED BY USER-GET AODR, 

05415 

4044 


JMS I 

ARGETL 

/PICK UP OPERANO 

05410 

1040 


TAD 

ACLO 

/SWAP THE FAC ANO OPERAND 

0541? 

3051 


DCA 

OPL 

/THERE IS A POINTER TO OPL 

05420 

1442 


TAD I 

AC2 

/IN AC2 LEFT FROM ARGET SUBR, 

05421 

3040 


DCA 

ACLO 


05422 

1044 


TAD 

ACX 

/MIGHT AS WELL SUBTRACT THE 

05423 

7141 


CLL CMA 

ZAC 

/EXPONENTS HERE (SAVES A WORD) 

05424 

1047 


TAD 

OPX 

/THEN ZERO OPX SO WILL NOT 

05425 

3044 


OCA 

ACX 

/MESS UP WHEN ITS OONE AGAIN 

05420 

3047 


OCA 

OPX 

/LATER (SEE OIV, ROUTINE) 

05427 

1045 


TAO 

ACH 


05430 

3042 


OCA 

ACS 

/NOW SWAP HIGH ORDER MANTISSAS 

05431 

1050 


TAO 

OPH 


05432 

3045 


DCA 

ACH 


05433 

1042 


TAO 

ACS 


05434 

3050 


OCA 

OPM 


05435 

0201 


COF 


/OF TO PACKAGE FIELD 

05430 

1212 


TAD 

FFOIVl 

/NOW KLUDGE UP SUBROUTINE LINKAGE 

05437 

3040 


OCA I 

FFOP 


05440 

1247 


TAO 

KFOi 


05441 

3045 


OCA I 

M03ETP 


05442 

5043 


JMP I 

HOtP 

/GO SET UP ANO OIV IDE 

05443 

5452 

HOIP* 

MOl 



05444 

0200 

ARGCTL* 

ARGET 



05445 

5450 

MOSETP* 

MOSET 



05440 

5722 

FFOPi 

FFOIV 



05447 

5720 

KFOl# 

FFOl 
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05450 

05431 

05452 

05453 
0545,4 
05455 

05454 
05457 

05460 

05461 

05462 

05463 

05464 

05465 

05466 

05467 

05470 

05471 

05472 

05473 

05474 

05475 

05476 

05477 

05500 

05501 

05502 

05503 


05504 

05505 

05506 

05507 

05510 

05511 

05512 

05513 

05514 

05515 

05516 

05517 
05520 


/MOSET-SETS UP SIGNS FOR MULTIPLY AND DIVIDE 
/ALSO SHIFTS OPERAND ONE BIT TO THE LEFT, 

/EXIT WITH EXPONENT OF OPERAND IN AC FOR EXPONENT 
/CALCULATION-CALLED WITH ADDRESS OF OPERAND IN AC AND 
/DATA FIELD SET PROPERLY FOR OPERAND 


/ 


0000 

MDSET , 

0 


4703 


JMS I 

ARGETK 

6201 

MOl , 

CDF 


'7344 


CLA CLL 

CMA RAL 

3043 


OCA 

TM 

1050 


TAD 

OPH 

7700 


SMA 

CLA 

5262 


JMP 

• ♦3 

4702 


JMS I 

OPNEGP 

2043 


ISZ 

TM 

1051 


TAD 

OPL 

7104 


CLL 

RAL 

3051 


DC A 

OPL 

1050 


TAD 

OPH 

7004 


ral 


3050 


DC A 

OPH 

3041 


DCA 

AC 1 

1045 


TAD 

ACH 

7700 


SMA 

CLA 

5277 


JMP 

LEV 

4701 


JMS I 

FFNEGK 

2043 


ISZ 

TM 

7000 


NOP 


1047 

LEV, 

TAD 

OPX 

5650 


JMP I 

MOSET 

6135 

FFNEGK, 

FFNEG 


6146 

OPNEGP , 

OPNEG 


6200 

ARGETK, 

ARGET 



/GET ARGUMENT 

/OF TO PACKAGE FIELD 

/SET SIGN CHECK TO -2 

/IS OPERAND NEGATIVE? 

/NO 

/YES-NEGATE IT 

/BUMP SIGN CHECK 

/AND SHIFT OPERANO LEFT ONE BIT 


/CLR. OVERFLOW WQRF OF FAC 
/IS FAC NEGATIVE 

/NO-GO ON 
/YES-NEGATE IT 
/BUMP SIGN CHECK 
/MAY SKIP 

/EXIT WITH OPERAND EXPONENT IN AC 


/CONTINUATION OF FLOATING DIVIDE ROUTINE 


1042 

FOl, 

TAD 


AC2 

7141 


CLL 

CMA 

I AC 

1045 


TAO 


ACH 

7420 


snl 



5733 


JMP 

I 

DVOPSP 

7100 


CLL 



3045 


DCA 


ACH 

4732 


JMS 

I 

DV24P 

1041 

DVLli 

TAD 


AC l 

7500 


SMA 


5327 


JMP 


FO 

7110 


CLL 


RAR 

3045 


DCA 


ACH 


/NEGATE HI ORDER PRODUCT 

/COMPARE WITH REMAINDER OF FIRST OIV. 
/WELL 1 ? 

/GREATER THAN REM, -ADJUST QUOT OF 1ST D 
/OK-OO (REM-(0*OPL))/OPH 
/FIRST STORE ADJUSTED PRODUCT 
/DIVIDE BY OPH (HI ORDER OPERANO) 

/GET QUOT, OF FIRST DIV, 

/IF HI ORDER BIT SET-MUST SHIFT 1 RIGHT 
/NO-ITS NORMALIZED-OONE 
/MUST SHIFT RIGHT 1 
/STORE IN FAC 


/OS/I 

05521 

05522 

05523 
05324 
05525 
05525 
05527 
03530 

05531 

05532 

05533 


05534 

05335 

05530 

05537 

05540 

05541 
05342 
05543 
03544 
05545 
05540 


05573 

05374 

05375 
05570 
05377 


BASIC 

RUNTIME 

SYSTEM 

P 

1040 


TAD 

ACLO 

7010 


RAR 


3040 


OCA 

AGIO 

2044 


ISZ 

ACM 

7000 


NOP 


1045 


TAO 

ACN 

3045 

FO, 

DCA 

ACM 

5731 


JMP I 

FDOONP 

5742 

FDOONP, 

FDDON 


5745 

DV24P, 

DV24 


0315 

DVOPSP, 

OVOPS 
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/SHIFT LOW ORDER RIGHT 

/STORE BACK 
/BUMP EXPONENT 


/STORE HIGH OROER RESULT 
/GO LEAVE DIVIDE 

/END OF FLTG, DIV, ROUTINE 
/ROUTINE TO DO A 24X12BIT DIVIOE 
/ROUTINE TO AOJUST OUOT OF FIRST 

/ 

/CONTINUATION OF ROUTINE TO AOJUST QUOT, OF FIRST OIV, 
/OBAOl IS QNLV EXECUTED ON DIVIOE OVERFLOW-OTHERWISE THE 
/ROUTINE STARTS AT DV0P2 
/ 

/DIVIDE OVERFLO-ZERO ALL 
/IS IT ZERO? 

/YES-MAKE WHOLE THING ZERO 


DIV, 


3044 

DBADl , 

DCA 


ACX 

7450 

DVOP2, 

SNA 



3046 


DCA 


ACLO 

3045 


OCA 


ACM 

4732 


JM8 

I 

DV24P 

1046 


TAO 


ACLO 

7141 


CLL 

CMA 

I AC 

3046 


DCA 


ACLO 

7420 


SNL 



7040 


CMA 



5314 


JMP 


DVL1 


/DIVIDE EXTENOEO REM, 
/NEGATE THE RESULT 


BY HI DIVISOR 


/IF QUOT, IS NON-ZERO, SUBTRACT 
/ONE FROM HIGH ORDER QUOT, 

/GO TO IT 


/ROUTINE TO BUMP CHARACTER NUMBER 

/USED BY CHAR PACKING ROUTINES, BUT ITS HERE AS A PATCH 


5573 

*5573 


0000 

CNOBML, 0 


1563 

TAO I WORD0 

/HEADER WORD 

1076 

TAD K0100 

/ADO 1 TO THE COUNT BITS 

3563 

DCA I WORD0 


5773 

JMP I CNOBML 

/DONE 
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5600 


<* 


05600 

05601 

05602 

05603 
~ 0560 « 


0000 

4555 

1600 

4774 


PAGE 

/FLOATING MULTIPLY-DOES 2 24X12 BIT MULTIPLIES 
FFMPY, 0 

JMS I PATCHP /WHICH MODE OF CALL? 

TAD I FFMPY /CALLED BY USER-GET OPERAND ADDR. 

JMS I MD5ETK- /SET UP FOR MPY-Q PX IN AC ON RETN, 

/do EXP0NENT"~jnnrrTT5R 


"-"05696 

3^45 

OCA 

0V24 

05607 

3042 

OCA 

AC2 

05610 

1045 

TAO 

ACM 

05611 

J650 

SNA 

CLA 

. 05612, 

3.0.44 

DCA 

AC It 

ifflT 

4243 — i 4H 

PPJMS 

MP24 

05614 

1050 

TAO 

OPH 

05615 

3051 

OCA 

OPL 

0S616 

4243 

► JMS 

HP24 

05617 

1042 w 

TAO 

AC2 

05620 

3046 RTZROf 

OCA 

ACLO 

05621 

1345 

TAO 

0V24 

.05622 

3045 

OCA 

ACH- 

056t3~ 

~~T045" 

TAD 

ACH 

05624 

7004 

RAL 


05625 

7700 

SMA 

CLA 

05626 

5235 

JMP 

SHLFT 


-ZSTORE FINAL EXPONENT, 


/ZERO TEM STORAGE FOR MPV ROUTINE 


/IS FACS? 


/YE3-M - R 0 iXPO N ENT - 


/NO-MULTIPLY FAC BY LOW ORDER OPR. 

/NOW MULTIPLY FAC BY HI ORDER MULTIPLIER 


/STORE RESULT BACK IN FAC 
/LOW ORDER 
/HIGH ORDER 


/DO WE NEED TO NORMALIZE? 


"0552T- 

3041, MOORE i 

DCA 

AC1 

05630 

2200 

isz 

FFMPY 

05631 

2043 

ISZ 

TM 

05632 

5600 

JMP I 

FFMPY 

05633 

4773 

JMS I 

FFNEGR 

.M611L. 

5620 

—JMP I 

__EEM£X- 


/RO-ZErOuVERFLOW WDCOO I need this?? 
/BUMP RETURN POINTER 
/SHOULD RESULT BE NEGATIVE? 
/NOPE-RETN, 

/YES-NEGATE IT 
/RETURN 


4 , 

V 


4 


$ 


05635 

7040 

SHLFT, 

CMA 

05636 

1044 


TAD 

05637 

3044 


OCA 

05640 

4642 


JMS I 

05641 

5230 


JMP 

05642 

6057 

AL1PTR, 

AL1 

— 


/24 BIT 

BY 12 



/MULTIPLICAND 


RESULT LEFT 

**05643 

0000 

MP24» 0 

05644 

1375 


TAO 

05645 

3047, 


OCA 

05646 

1051 


TAD 

05647 

7440 


3ZA 

05650 

5254 


JMP 

05651 

3041 


OCA 

05652 —5643 
"95653 1051 

mplp7" 

4£P I 
TAO 

05654 

7010 

MPLP1, 

RAR 

05655 

3051 


OCA 

05656 

7*20 


SNL 

05657 

5266 


JMP 


ACX 

ACX 

AL1PTR 


/SUBTRACT 1 FROM EXP, 


MDONE+1 /DONE. 


/SHIFT FAC LEFT 1 BIT 


MULTIPLIER IS IN QPL 


KKM12 

OPX 

QPL 


/SET UP^12 BIT COUNTER 


/IS MULTIPLIERS? 


MPLP1 
AC 1 


OPL 


OPL 


/NO-GO ON 

/ YES-INSURE RESULTS 

/RETURN 

/sSIFt A BIT OUT OF LOW ORDER 
/OF MULTIPLIER AND INTO LINK 



MPLP2 


/WAS IT A 1? 

/NO-0-JU5T SHIFT PARTIAL. PRODUCT 






/OS/8 BASIC RUNTIME SYSTEM 






056^0 

05661 

05662 

05663 

05664 

05665 

05666 

05667 

05670 

05671 

05672 

05673 

05674 

05675 

05676 

05677 
05700 




05701 

05702 

05703 

05704 

05705 

05706 

05707 

05710 

05711 


& 


14712 

0sTn 

05714 

05715 

05716 

05717 
.J05720 

05771 


s 




£ 


05722 

05723 

05724 

05725 

05726 

05727 

05730 

05731 

05732 

05733 

05734 

05735 


7100 

1042. 

1046 

3042 

7004 

1045 

1345 MPLP2, 
7010 
3345 
1042 
7010 
3042 
7010 
3041 
2047 
5253 
5643 


-1TC2~ 


MP12L, 


0VLP1, 


3051 

1042- 

7420 

5307 

7100 

1046 

7010 

3042 

1051 

7010 

2200 

5301 

7141 

3046 

7024 

5721 

5504 


0000 FFDIV, 
4504^3 


JFrtD 

ACH_I 

0V24 

( RAR 

- 

.DCA 

DV24 

TAD 

“"ACS 

RAR 


DCA 

AC2 

RAR 


OCA 

ACl 

isz 

OPX 

JMP 

MPLP 

JMP I 

MP24 

'me 


OF DIVIOE ROUTI 

DCA 

OPL 

TAO 

AC2 

SNL 


JMP 

. + 3 

CLL 


TAD 

ACLO 

RAR 


OCA 

AC2 

TAO 

OPL 

RAR 


ISZ 

FFMPY 

JttB 

MttJI 

/CLL CMA I AC 
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/YES-ADD MULTIPLICAND TO PARTIAL PRODUCT 

\ 

VLOW OROER 

/PROPAGATE CARRY 
/HI OROER 

/NOW SHIFT PARTIAL PROD. RIGHT 1 BIT 


/I BIT OF OVERFLOW TO ACl 

/DONE ALL 12 MULTIPLIER BITS? 

/NO-GO ON 

/YES-RETURN 


iCA 


ACLO 


-FFDIV MUST BE AT LOC. <722 
/STORE BACK MULTIPLIET 
/GET PRODUCT SO FAR 
/WAS MULTIPLIER BIT A 1? 

/NO-JUST SHIFT THE PARTIAL PRODUCT . 
/YES-CLEAR LINK AND AOD MULTIPLICAND! 
/TO PARTIAL PRODUCT ! 

/SHIFT PARTIAL PROOUCT-THIS IS HI ORIeR 
/RESULT-STORE BACK ' 

/SHIFT A BIT OUT OF MULTIPLIER 
/AND A BIT OR RESLT, INTO IT (LO ORD 
/DONE ALL BITS? 

BACK 

Vr Y f S " L0W ° RDE * PROD . OF OUOT, X OPL 

TjQg fiiTC A 61 n =- 


fyZZ 

Cnap^ 


J 


HTa te and store 

-yTTTDT MGATC C AR RY 
FD1P /GO ON 

/POINTER TO REST OF DIVIOE ROUTINE 


^573 7 
", 0574*0 


1722 
4774 

7041 FFOl t 
1044 
3044 
TM0~ 

7141 
3050 
4345 
1046 
-SMI. 


FD1P, FOl 
/ 

/FLOATING DIVIDE ROUTINE 

METHOD OF TRIAL DIVISION BY HI ORDER 

/ {USED AS A TEM, BY I/O ROUTINES) 

/WHICH MODE OF CALL? 

/CALLED BY USER-GET ARG, ADDR, 

/GO SET UP FOR DIVIOE-OPX IN AC ON RETN. 
/NEGATE EXP. OF OPERAND 
/AOO EXP OF FAC 
-Z& IORE AJ FINAL EXPONENT 



0 

JMS 
TAO 
JMS 
CMA 
TAO 

DC A 

TAIT 


PATCHP 
FFDIV 
MD8ETK 
I AC 
ACX 

ACX 


/NEGATE HI OROER OP, FOR USE 
/AS DIVISOR 




V 05741 


1376 

3200 

5311 


T5FH 

CLL CMA I AC 
DCA OPH 

OIV. — (ACH±A£LO)/OPH 


TAD 

DCA 

JMP 


FFMPY 

OVLP1 


7fTTcOUNTER FOR 12 BIT MULTIPLY J?SP' 
/TO MULTIPLY QUOT, OF OIV. BY^ ’ - 
/LOW ORDER OF OPERAND (OPL ) LL MO 
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/ 

/END OF FLOATING DIVIOE-FUQGE SOME 
/STUFF THEN JUMP INTO MULTIPLY 


05T42 

1322 

/ 

FDDON, 

TAD 

FFDIV 

/STORE RETN, ADDR. IN MULT ROUTINE 

05743 

3200 


OCA 

FFMPY 


05744 

5227 


JMP 

MDONE 

/GO CLEAN UP 



/ 

/DIVIDE ROUTINE— 24 BITS IN ACH # ACLO ARE DIVIDED BY 12 BITS 
/IN OPH, OPH IS ASSUMED NEGATIVE AND ,GT 9 ACH IN ABSOLUTE V 
/ELSE-OIVIDE OVERFLOW— WE RETURN NORMALLY WITH QUOTIENT 
/IN ACLO AND REM. IN ACH. <AC2»0 ON RETN.) 


/ 


05745 

0000 

DV24, 

0 


05746 

1045 


T 40 

ACH 

05747 

1050 


TAD 

OPH 

05750 

7850 


SZL 

CLA 

05751 

5777 


JMP I 

DVOVR 

05752 

1378 


TAD 

KM13 

05753 

3042 


OCA 

AC2 

05754 

5385 


JMP 

DV1 

05755 

1045 

DV2, 

TAO 

ACH 

05756 

7004 


PAL 


05757 

3045 


DCA 

ACH 

05760 

1045 


TAD 

ACH 

05761 

1050 


TAD 

OPH 

05762 

7430- 


SZI. 


05763 

TG764 

3045 

7200 


DCA 

CLA 

ACH 

05765 

1 048i 

0V1, 

tad 

ACLO 

05766 

7004 


pal. 


05767 

3048 


DCA 

ACLO 

05770 

2042 


ISZ 

AC2 

05771 

5355 


JMP 

DV2 

^05772 

tS5773 

5745 


JMP I 

DV24 

8135 

FFNEGR* 

FFNEG 


05774 

5450 

MD3ETK# 

MDSET 


05775 

7784 

KKM12, 

-14 


05776 

7783 

KH13» 

-15 


05777 

8355 

0V0V8, 

ov 



/CHECK THAT DIVISOR IS .GT. DIVIDEND 
/DIVISOR IN OPH (NEGATIVE) 

/IS IT? 

/N0-QIVI0E OVERFLOW 
/YES-SET UP 12 BIT LOOP 

/GO BEGIN DIVIDE 
/CONTINUE SHIFT OF FAC LEFT 

/RESTORE HI ORDER 

/NOW SUBTRACT DIVISOR FROM HI ORDER 

/DIVIDEND 

/GOOD SUBTRACT? 

/YES-RESTORE HI DIVIDEND 
/NO*DON f T RESTORE— OPH.GT. ACH 
/SHIFT FAC LEFT 1 BIT-ALSO SHIFT 
/I BIT OF QUOT, INTO LOW ORD OF ACLO 

/DONE 12 BITS OF QUOT? 

/NO-GO ON 
/ YES-RETN W/AC2»0 


ALUF 









/^S/S 


BASIC 


RUNTIME SYSTEM 
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6000 PAGE 


/ 

/FLOATING AOO 
/ 


06000 

0000 

FFADD, 

0 



06001 

45W.*-3 

JMS 

i 

PATCHP 

06002 

1600 


TAO 

i 

FFAOD 

06003 

4727- 


JMS 

i 

ARGETP 

06004 

6201 

FAOl » 

CDF 



0600S 

1050 


TAD 


OPH 

06006 

7650 


SNA 


CLA 

06007 

5227 


JMP 


DONA 

06010 

1045 


TAD 


ACH 

06011 

7650 


SNA 


CLA 

06012 

5223 


JMP 


DOADD 

06013 

1044 


TAO 


ACX 

06014 

7141- 

■ 

CLl 

CMA I AC 

06015 

1047 


TAD 


OPX 

06016 

7540 


SMA 


SZA 

06017 

5231 


JMP 


FACR 

06020 

7041 


CMA 


ZAC 

06021 

4234 


JMS 


OPSR 

06022 

4272 


JMS 


ACSR 

06023 

1047 

DOADD, 

TAD 


OPX 

06024 

3044 


DC A 


ACX 

06025 

4357 


JMS 


OADD 

06026 

4776 


JMS 

I 

FNORP 

06027 

2200 

DONA* 

ISZ 


FFADD 

06030 

5600 


JMP 

I 

FFADD 

06031 

4272’ 

FACR, 

JMS 


ACSR 

06032 

4234 


JMS 


OPSR 

06033 

5223 


JMP 


DOADD 


/ 


/WHICH MODE FO CALL? 

/CALLED BY USER-GET AOOR, OF OPR 
/PICK UP OPERAND 
/OF TO PACKAGE FIELD 
/IS OPERAND ■ 0 

/YES-DONE 
/NQ-IS FAC«0? 

/YES-DO ADD 

/NO-DO EXPONENT CALCULATION 


/WHICH EXP. GREATER? 
/OPERANDS-SHIFT FAC 
/FAC'S-SHIFT OPERAND»DIFFRNCE+l 

/SHIFT FAC ONE PLACE RIGHT 
/SET EXPONENT OF RESULT 

/DO THE ADDITION 
/NORMALIZE RESULT 
/BUMP RETURN 
/RETURN 

/SHIFT FAC ■ DIFF.+l 
/SHIFT OPR, 1 PLACE 
/DO ADDITION 


4 ' 


si 




rfc 


lb 




/OPERANO SHIFT RIGHT-ENTER WITH POSITIVE COUNT-1 
/IN AC 


06034 

0203 

OPSR, 

0. ^ 


06035 

7040 


CMA 


06036 

3040 


DCAr 

AC0 

0603T 

1050 

Lopa# 

TAD 

OPH 

06040 

7004 


RAC 


06041 

7200 


CLA 


06040 

1050 


TAD 

OPH 

06043 

7010 


RAR 


06044 

3050 


DCA 

OPH 

06045 

1051 


TAD 

OPL 

06046 

7010 


RAR 


0604T 

3051 


DCA 

OPL 

06050 

7010 


RAR 


06051 

3042 


DCA 

Aca 

0605a 

2047/ 


ISZ 

OPX 

<*■46053 

7000 \ 

N0P2, 

NOP 


06054 

2040 

\ 

ISZ 

AC0 

. 06055 

5237 


JMP 

Lopa 

r 06056 

5634 


JMP I 

OPSR 


/- (COUNT*!) TO SHIFT COUNTER 

/GET SIGN BIT 
/TO LINK 


/GET HI MANTISS 
/SHIFT IT RIGH 
/STORE BACK 



PROPAGATING SIGN 


/STORE LO ORDER BACK 
/SAVE 1 BIT OF OVERFLOW 
/IN AC2 

/INCREMENT EXPONENT 

/DONE ALL SHIFTS? 

/NO-LOOP 

/YES-RETN, 
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/SHIFT FAC LEFT 
/ 


06057 

0000 AUi 

0> 



06060 

1041 

TAO 

AC1 

/GET OVERFLOW BIT 

06061 

T 104 

CLL 

RAL 

/SHIFT LEFT 

06062 

3041 

OCA 

AC1 

/STORE BACK 

06063 

1046 

TAO 

ACLO 

/GET LOW ORDER MANTISSA 

06064 

7004 

RAL 


/SHIFT LEFT 

06065 

3046 

OCA 

ACLO 

/STORE BACK 

06066 

1045, 

TAO 

ACM 

/GET HI ORDER 

06067 

7004 

RAL 



06070 

3045 

OCA 

ACM 

/STORE BACK 

06071 

5057 

JMP I 

AL1 

/RETN, 




06072 

06073 

06074 

06075 

06076 

06077 
06100 
06101 
06102 

06103 

06104 

06105 

06106 
06107 
06110 

«£&111 
06112 
> 06113 
06114 


06115 

06116 


/SHIFT FAC RIGHT-ENTER WITH COUNT-1 IN AC (POSITIVE) 
/ 


LOP!, 


Qop^ 


0 

cma 

OCA 
TAD 
RAL 
CLA 
TAO 
RAR 
OCA 
TAO 
RAR 
OCA 
RAR 
OCA 
ISZ 
NOP 
ISZ 
JMP 
JMP I 


/AC CONTAINS COUNT-1 


yOET SIGN BIT OF MANTISSTn 
^| gT UP SIGN PROPAGATI ON-^ 

/GET HIGH OROER MANTISSA 

/SHIFT RIGHT 1, PROPAGATING SIGN 

/STORE BACK 

/GET LOW OROER 

/SHIFT IT 

/STORE BACK , v , 

/SAVE 1 BIT OF OVERFLOW 
/INCREMENT EXPONENT 

/DONE? 

/NO -LOOP 

/YES-RETN-AC«L»0 




/DIVIDE OVERFLOW-ZERO ACX, ACM, ACLO 
/ 

OBAD, . CLA CLL /NECESSARY 
JMP I OBAOIP /GO ZERO A 

/ 

/FLOATING subtract 
/ 


/NECESSARY SO WE DON'T GET OVRFLO 
/GO ZERO ALL 


AGAIN 


06117 

06120 

0000 FFSU0# 

JET** 

0 

JM3 

1 

PATCHP 

/WHICH MODE OF CALL? 

06121 

TAO 

1 

FF5U8 

/CALLED BY USER-GET AODR 

06122 

4727 


I 

APGETP 

/PICK UO THE OP. 

06123 

4346 

JMS 


OPNEG 

/NEGATE OPERAND 

06124 

1317 

TAO 


FFSUB 

/JMP INTO FLTG. ADO 

06125 

3200. SUB0i 

OCA 


ffado 

/AFTER SETTING UP RETURN 

06126 

5204 

JMP 


FAOl 

06127 

6200 ARGETP, 

A8GET 




t 




ft ft 
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6135 *6135 


/ 

/FLOATING NEGATE 
/ 


06135 

0000 

FFNEG, 

o 


/(USED AS A TEM, BY OUTPUT ROUTINE) 

06136 

1046 


TAD 

ACLO 

/GET LOW ORDER FAC 

06137 

7141 


CLL CMA 

I AC 

/NEGATE IT 

06140 

3046 


DCA 

ACLO 

/STORE BACK 

06141 

7024 


CML 

RAL 

/ADJUST OVERFLOW BIT AND 

06142 

1045 


TAD 

ACM 

/PROPAGATE CARRY-GET HI ORD 

06143 

7141 


CLL CMA 

X AC 

/NEGATE IT 

06144 

3045 


DCA 

ACH 

/STORE BACK 

06145 

5735 


JMP 1 

FFNEG 




/NEGATE 

OPERAND 



06146 

0000 

OPNEG, 

0 



06147 

1051 


TAD 

OPL 

/GET LOW ORDER 

06150 

7141 


CLL CMA 

I AC 

/NEGATE AND STORE BACK 

06151 

3051 


DCA 

OPL 


06152 

7024 


CML 

RAL 

/PROPAGATE CARRY 

06153 

1050 


TAD 

OPH 

/GET HI ORDER 

06154 

7141 


CLL CMA 

I AC 

/NEGATE AND STORE BACK 

06155 

3050 


DCA 

OPH 


06156 

5746 

i 

JMP I 

OPNEG 




/ADO OPERAND TO 

i 

FAC 


06157 

0000 

QADDf 

0 



06160 

7100 


CLL 



06161 

1042 


TAD 

AC2 

/ADD OVERFLOW WORDS 

06162 

1041 


TAD 

AC 1 


06163 

3041 


DCA 

ACi 


06164 

7004 


RAL 


/ROTATE CARRY 

06165 

1051 


TAD 

OPL 

/ADO LOW ORDER MANTISSAS 

06166 

1046 


TAD 

ACLO 


06167 

3046 


DCA 

ACLO 


06170 

7004 


RAL 



06171 

1050 


TAD 

OPH 

/ADD HI ORDER MANTISSAS 

06172 

1045 


TAD 

ACH 


06173 

3045 


DCA 

ACH 


06174 

5757 


J HP I 

OADD 

/RETN* 

06175 

55WM/DBAPIP, 

DBAD1 



06176 

6215 

FNORPf 

FFNOR 




> 
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IFNZRQ EAE < 

/EAC FLOATING POINT PACKAGE 
/FOR P0P8/E WITH KEB-E EAE 
/ 

/W.J. CLOGHER 
/ 

/DEFINITIONS OF EAE INSTRUCTIONS 

SWP»7521 

CAM*7S2l 

MOA«7S01 

MQL«742l 

86T«*08* 

8WAS»T«S| 

SWBA*T447 

SCA>7«4} 

MUY»7405 

OVI*7407 

NMI»74U 

SHL«741S 

ASR*741S 

LSR«741T 

ACS«7403 

SAM»74S7 

0AD«7443 

DLO«7t*3 

DST*7445 

0PIC«7573 

0CM»7575 

OPS2PT451 

/ 

ACLO*LORD 

TM-TEMP4 


ENPUNCH 
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*4600 


/ 

/FLOATING OUTPUT ROUTINE 


/ 

FFOUT, 

0 






SWAB 


/ALSO DOES MOL TO CLR, AC 



OCA 


SIGN 

/CLEAR SIGN AND COUNT WORDS 



OCA 


KNT 




TAD 


EFLG 

/IS THIS E FORMAT? 



SZA 


CLA 




JMP 


FFMT 

/NO-F FORMAT 



CLL 

CML 

I AC RTL 

/YES-MAKE A 6 



DC A 


DADP 

/STORE AS * OF DIGITS AFT DEC 

PT 


tad 


K 16 

/SET FIELD WIDTH TO 14 ( DECIMAL) 


DCA 


FLOW 



FFMT* 

CDF 



/CHANGE TO FIELD OP PACKAGE 



TAD 


KMT 

/SET # OF SIGNF, DIGITS 



DCA 

I 

OCNTP 

/TO 6 (DON'T PRINT 7TH) 



TAD 


ACH 

/DETERMINE IF 4*0 



SNA 






JMP 


FDUT3 

/YES-SKIP DOWN 



SMA 


CLA 

/NQ-IS IT NEGATIVE? 



JMP 


.♦3 

/POSITIVE 



ISZ 


SIGN 

/NEGATIVE-SET FLAG 



JMS 

I 

FFNGP 

/ANO NEGATE # 


FOUT1, 

TAD 


ACX 

/GET # INTO RANGE ,1<«N<1 



SMA 

SZA 

CLA 

/IS EXP. NEG.? 



JMP 


FOUT2 

/NO-GO ON 



JMS 

I 

FFMPP 

/YES-MAKE # GREATER THAN 1 



TEN 



/BY MULTIPLYING BY TEN (DEC.) 



ISZ 


KNT 

/COUNT THE MULTIPLIES 



JMP 


FOUTi 

/SEE IF »i YET 


F0UT2, 

JMS 

I 

SEP 

/# IS M-MAKE IT LESS THAN l 



JMS 

I 

FFPUTP 

/STORE IN A TEMPORARY 



TM3 






DCA 


ACX 

/SET FAC TO .5 



CLL 

CML 

RTR 




DCA 


ACH 




DCA 


ACLO 




TAD 


EFLG 

/IS THIS E FORMAT? 



SZA 


CLA 




TAD 


KNT 

/NO-GET COUNT OF MULTIPLIES 



CMA 


I AC 

/NEGATE IT 



TAD 


DADP 

/AND ADO » OF DIGITS AFT, DC. 

PT. 


SMA 



/MUST BE NEGATIVE 



cma 






TAO 


KK7 

/LIMIT « OF DIVS TO f 



SPA 






CLA 






TAD 


KM7 

/RESTORE 



DCA 

I 

SEP 

/STORE AS COUNTER 



JMP 


• ♦3 
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F0UT4, 

F0UT5, 

F0UT3. 

NOTE* 

ADFW, 


PRDCP, 


JMS I 

FFDVP 

/DIVIDE .5 BY TEN THAT # OF TIMES 

TEN 



ISZ I 

SEP 

/DONE? 

JMP 

.-3 

/NO-GO ON 

JMS I 

FFADP 

/YES-ADD IN 0RIG,#-THIS IS ROUNDING 

TM3 



JMS I 

SEP 

/INSURE THAT IT IS IN RANGE 

TAD 

AC X 

/GET EXPONENT 

cma 

1 AC 

/USE AS COUNT FOR SHIFTING MANT, 

DCA 

FQUTb 


OLD 


/PICK UP MANTISSA 

ACM 



SWP 

SHL 

/PUT IN CORRECT ORDER 

i 


/SHIFT LEFT 1CF0R 0 EXP.) 

LSR 

01 


/NOW SHIFT RIGHT ACCORD TO EXP, 

DCA 

ACM 

/STORE BACK 

SWP 



DCA 

ACLO 


TAD 

KNT 

/DONE-GET COUNT OF MULS. 

DCA 

OPX 

/PRESERVE IT 

TAD 

EFLG 

/IS THIS E FORMAT OUT? 

SZA 

CLA 


JMP 

NOTE 

/NO 

DCA 

KNT 

/YES-ZERO COUNT 

TAD 

KM7 

/GET MINUS 7-FOR 2 SIGNS, PT, +EXP 

JMP 

ADFW 

/GO ADD FIELD WIOTH 

tad 

KNT 

/GET COUNT OF MULTIPLIES 

SMA 


/IF NOT NEG-MAKE a -2 

CLA 

CMA 


TAD 

Ml 

/MINUS 1 FOR OEC.PT 

TAD 

FLOW 

/GET THE FIELD WIDTH 

CMA 

I AC 

/NEGATE IT 

TAD 

DADP 

/ADO DIGITS AFTER OEC, PT 

SMA 


/NEG? 

JMP I 

PRNTXP 

/NO-PRINT XS-NOT ENUFF ROOM 

DCA I 

SEP 

/STORE AS CNT OF SPACES 

JMP 

• + 3 


tad 

KK2A0 


JMS I 

OUTP 

/PRINT A SPACE 

ISZ I 

SEP 

/DONE? 

JMP 

,*3 

/NO-GO ON 

TAD 

SIGN 

/YES-GET SIGN 

CLL 

RAL 

/MAKE A ZERO OR 2 

tad 

K253 

/FOR PLUS OR MINUS 

JMS I 

OUTP 

/PRINT SIGN 

TAD 

KNT 

/GET MUL COUNT 

SMA 



JMP I 

PRZROP 

/PRINT LEADING ZERO 

CMA 

I AC 


JMS I 

DGTYPP 

/OUTPUT 'KNT' DIGITS 

TAD 

DADP 

/DON'T PRINT DEC, PT 

SNA 

CLA 

/IF D*DP IS 0 

JMP I 

GKNTP 


JMP I 

POPP 
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PRZROP# 

PRZRO 

POPP, 

POP 

Ktfc, 

IS 

GKNTP, 

GKNT 

FUNK, 

JMP I FFOUT 

PRNTXPi 

PRNTX 

K2S3, 

253 

PRP, 

PR 

OCNTP, 

OCMT 

HI# 

7777 

KK7# 

7 

0GT7PP, 

0GT7P 

OUTP# 

OUT 

KK240, 

240 

KMT, 

• 7 

FFADP, 

FFADD 

FFOVP, 

FFOIV 

FFPUTP, 

FFPUT 

SEP, 

SE 

FFMPP, 

FFMPV 

FFNGP, 

FFNEG 

KNT, 

0 

SIGN# 

0 


/OS/8 BASIC RUNTIME SYSTEM 


PAU6-V7 10/24/72 PAGE 113 



PAGE 




PDRi 

CLA 

CLL 

CMA RAL 



JMS 


OUTDG 

/PRINT DEC. PT. 

GKNT , 

TAD 

I 

KNTP 

/GET COUNT AGAIN 


SPA 

SNA 

CLA 



JMP 


GD 



TAD 

I 

KNTP 

/GET COUNT 


CMA 



/NEGATE 


DCA 


DGTYP 

/STORE AS COUNTER 


TAD 


DADP 



CMA 



/SAME FOR DADP 


DCA 


SE 



JMP 


PR 

/GO ON 

PZR, 

JMS 


QUTDG 

/PRINT A ZERO 

PR, 

ISZ 


DGTYP 



$KP 





JMP 


PS 



ISZ 


SE 



JMP 


PZN 


PS, 

TAD 

I 

KNTP 



CMA 


I AC 


GD, 

TAD 


DADP 



SMA 


SZA 



JMS 


DGTYP 



TAD 


eflg 



SZA 


CLA 



JMP 


DONEF 

/DONE 


TAD 


K 305 

/PRINT 'E* 


JMS 


OUT 



TAD 


OPX 

/GET PRESERVED COUNT OF MULS 


SMA 

SZA 

CLA 

/DETERMINE SIGN 


CLA 

I AC 

RAL 

/MAKE A 2 


tad 


P253 

/PRINT MINUS OR PLUS SIGN 


JMS 


OUT 



TAD 


OPX 

/GET THE COUNT 


SPA 





CMA 


I AC 

/NEGATE IF NEGATIVE 


MOL 


DVI 

/DIVIDE BY ONE HUNDRED 


K 1 44 




SWP 



/QUOT TO AC, REM TO MQ 


JMS 


OUTDG 

/THIS IS FIRST DIG-PRINT IT 


DVI 



/DIVIDE REM BY TEN 


K 12 





SWP 



/GET SECOND DIGIT 


JMS 


OUTDG 

/PRINT IT 


SWP 





JMS 


OUTDG 

/PRINT LAST 

DONEF , 

TAD 


5WIT2 

/SHOULD WE PRINT CR/LF? 


SNA 


CLA 



JMP 

X 

FLING 

/NO 


TAD 


KK215 



JMS 


OUT 



TAD 


K212 



JMS 


OUT 



JMP 

I 

FLING 
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/ 


/ROUTINE TO 

i 

GET 

PAC«* 


SE, 

0 




SE1, 

TAD 


ACX 



SPA 

SNA 

CLA 

/*>!? 


JMP 

I 

SE 

/no-retn. 


JMS 

I 

FFOV 

/ YES-DI V , BY TEN 


TEN 





cma 





TAD 

X 

KNTP 

/REOUCE KNT BY 1 


DC A 

I 

KNTP 



JMP 


S€1 



/ 

/OUTPUT DIGITS OP FAC BY MULTIPLYING BY TEN 
/THE HIGH ORDER OVERFLOW IS THE OIGIT 


DGTYP, 


DTI, 


PRNTX , 


PRNTXl, 


K252, 


0 


cma 

I AC 

OCA 

SE 

SWAB 


TAD 

ACLO 

MQL 

MUY 

Ki2 


SWF 


DCA 

ACLO 

TAD 

ACH 

SWF 

MUY 

K 12 


ISZ 

OCNT 

JMP 

.♦3 

CCA 

CMA 

OCA 

OCNT 

JMS 

OUTDG 

SWF 


OCA 

ACH 

ISZ 

SE 

JMP 

OT1 

JMP I 

DGTYP 

CLA 


TAO 

FLOW 

cma 


OCA 

SE 

ISZ 

SE 

SKP 


JMP 

DQNEF 

TAD 

K252 

JMS 

OUT 

JMP 

PRNTX i 

252 



/STORE COUNT PASSEO 
/MODE B OF EAE 
/GET LOW ORDER FAC 
/MUL BY TEN 

/NEW ACLO TO AC 

/STORE IT BACK 

/GET ACH-SENO TO MO, AND 

/HI ORD. OVERFLO OF MUY TO AC 

/MULT BY TEN, OVRFLO IS ADOEO 

/OONE ALL SIGNIF. DIGS,? 

/NO-GO ON 

/YES-PRINT ZEROS 

/FROM NOW ON 

/PRINT DIGIT (HI ORO, OVRFLOW) 
/NEW ACH IS IN MO 
/STORE IT 
/DONE REQUIRED? 

/NOPE 

/YUP 


/GET FIELD WIDTH 
/MUST BE NEGATIVE 
/USE AS COUNTER 
/OONE ALL? 

/NO-GO ON 
/YES-RETN, 

/PRINT ASTERISK 


/ASTERISK 
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PRZRO. 

CLA 


/CUR. GARBAGE 


JMS 

OUTOG 

/PRINT ZERO 


JMP I 

PROCPP 

/PRINT DEC, PT. (MAYBE) 

PROCPPf 

PROCP 



/OUTPUT 

ROUTINE 



j 

OUT# 

0 




OCA I XR3 

/STORE IN INTERMEDIATE BUFF 


JMP I 

OUT 


/ 

/OUTPUT 

DIGIT 



OUTOG, 

0 




TAO 

P2B0 



JMS 

OUT 



JMP I 

OUTOG 

/RETN 

KNTPi 

KNT 



KK215, 

215 



K2 1 2 * 

212 



TM3# 

0 




0 




0 



DCNT 9 

0 

/COUNT 

OF' SIGNF. DIGITS 

K305 # 

305 



P260' 

260 



FFDVi 

FFDIV 



P253 f 

253 



FLING, 

FUNK 



K144, 

144 
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/ 

/FLOATING POINT INPUT ROUTINE 
/ 



PAGE 



FFI N f 

0 





CU 


CMA 



PCA 


PRSN 

/INITIALIZE PERIOD SWITCH TO -1 


cma 



/SET SIGN SWITCH TO -1 


OCA 


SIGNF 



CDF 



/CHANGE TO OF OF PACKAGE 


OCA 


DSHIT 

/ZERO CONVERSION SWITCH 

DEGONV t 

DCA 


ACX 

/ZERO OUT THE FAC1 


OCA 


ACLO 


OCA 


ACH 


DECNV | 

DCA 


DNUMBR 

/ZERO * OF DIGITS SINCE DEC. PT. 

OECONi 

JMS 


GCHR 

/GET A CHAR, FROM TTY. 


JMP 


FFIN1 

/TERMINATOR* 


ISZ 


OSWIT 

/DIGIT-BUMP CONVERSION SWITCH 


ISZ 


DNUMBR 

/BUMP # OF DIGITS 


OCA 


TP l 

/STORE IT IN FORM EASILY FL0ATI8LE 


JMS 

i 

FMPYLL 

/MULTIPLY # BY 10 


TEN 





JMS 

i 

FPUTL 

/STORE IT AWAY 


FPPTMl 




JMS 

i 

FGETL 

/GET NEW DIGIT 


TP 





JMS 

i 

FNORL 

/FLOAT IT 


JMS 

i 

faddll 

/ADD IT TO THE ACCUMULATED # 


FPPTMl 



JMP 


OECON 

/GO ON 

FFIN1 f 

ISZ 


PRSW 

/HAVE WE HAD A PERIOD YET? 


JMP 


PIG02 

/YES-GO ON 


TAO 


H 2 

/NO- IS THIS A PERIOD? 


SNA 


CLA 



JMP 


DECNV 

/YES-ZERO DIG, COUNT AFTER DEC, PT, 
/AND GO CONVERT REST 

FIGOi » 

OCA 


DNUMBR 

/NO-TERMINATOR-ZERO COUNT OF 
/DIGITS AFTER DECIMAL POINT. 

CLA 


MQL 

/0 TO MO FOR LATER MULTIPLY 


ISZ 


SIGNF 

/IS # NEGATIVE? CDIO WE GET - SIGN?) 


JMS 

SHAB 

I 

FFNEGP 

/yes-negate IT 


CMA 



/RESET SIGN SWITCH FOR EXP, 


DCA 


SIGNF 



TAO 


CHAR 

/NQ-WAS THE TERMINATOR AN *E '? 


TAD 


KM£ 



SNA 


CLA 


GETS# 

JMS 


GCHR 

/YES-GET A CHAR, OF EXPONENT 


JMP 


EOON 

/END OF EXPONENT 


MUY 



/GOT DIGIT OF EXP-MULT ACCUMULATED 


HI i 



/EXPONENT BY TEN AND ADO DIGIT 


JMP 


GETE 

/CONTINUE 
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EDON, ISZ SIGNF /WAS EXPONENT NEGATIVE? 

DCM /YES-NEGATE IT 

CU CLL /CLEAR AC AND LINK 

TAD DNUMBR /GET # TIMES TO OIV MANTISSA BY TEN 

SAM /SUBTRACT FROM EXPONENT 

CLL 

SPA /RESULT POSITIVE? 

CLL CMA CML I AC /NO-MAKE POS, AND SET LINK 
CMA /NEGATE FOR COUNTER 

DCA DNUMBR /AND STORE 

RAL /LINK«I-OIVr«0-MUL, # BY TEN 

TAD MDV /FORM CORRECT INSTRUCTION 

DCA FINST /AND STORE FOR EXECUTION 

FCNT, ISZ DNUMBR /DONE ALL OPERATIONS? 

JMP FINST /NO 

JMP I FFIN /YES-RETURN 

FINST, 0 /NO- MUL OR OIV, MANTISSA 

TEN /BY TEN 

JMP FCNT /GO ON 

PFNEGP, FFNEG 
PRSW, 0 

DNUMBR, 0 

SIGNF, 0 

K2, 2 

KME, -305 

MDV, JMS I ,*l /THESE 3 WDS, MUST BE IN THIS ORDER 

FMPYLL, FFMPY 

ffoiv /nniiuinniiH 

FADDLL, FFADO 

K12, 12 

TP, 13 

TP1, 0 

0 

TEN, 4 

2400 

0 




/OS/8 BASIC RUNTIME SYSTEM PAL8-V7 10/24/72 PAGE 118 


/routine to get a char from the tty and see if it is digit 

/OR A TERMINATOR, 

/RETURN TO CALL ♦ 1 IF TERMINATOR, TO CALL ♦ 2 IF DIGIT 
/THIS ROUTINE MUST NOT MODIFY THE MQM 
GCHR, 0 

JMS INPUT /GET A CHAR FROM TTY, 

TAO CHAR /PICK IT UP 

TAD PLUS /WAS IT PLUS SIGN? 

SNA 

JMP DECONI /YES-GET ANOTHER CHAR, 

TAO MINUS /NO WAS IT MINUS SIGN? 

SZA CLA 

JMP .*3 

OCA SIGNF /YES-FLIP SWITCH 

DECONI , JMS INPUT /GET A CHAR, 

TAD CHAR 

TAD K7508 /SEE IF ITS A DIGIT 

CLL 

TAD K 1 2 

SZL /DIGIT? 

ISZ GCHR /YES-RETN, TO CACL+2 

JMP I GCHR /NO-RETN, TO CALL+1 

K7506 , 7508 

PLUS, -253 

MINUS, 253-255 

/ 

/ 

/INPUT R0UTINE-IGN0RE3 LEADING SPACES 
/ 

INPUT, 0 

JMS I GETCHL /USE OUR ROUTINE TO GET CHAR 
TAD D8WIT /GET TERMINATOR 

SZA CLA /VALID INPUT YET? 

JMP IOUT /YES-CONTINUE 

TAD CHAR /NO-GET CHAR 

TAD M240 /COMPARE AGAINST SPACE 

SNA CLA /IS IT A SPACE? 

JMP INPUT* 1 /YES-IGNORE IT 

IOUT, JMP I INPUT /RETURN 

M240, -240 

/ 

/ROUTINE TO DECIDE CALLING MODE IN LIEU OF "SPECIAL MODE" PROBLEMS 

/ 

*5384 
PATCHF , 0 

SZA /IS AC EMPTY 

JMP RTN2 /NO-THIS IS ALWAYS SI MOOE WITH ADUR IN AC 

TAD FF /YES-GET SPECIAL MODE FLIP-FLOP 

SZA CLA /IF ON, THE ZERO AC MEANS ADDRESS OF 0 

RTN2, ISZ PATCHF /USE AC AS ADDRESS OF OPERAND 

JMP I PATCHF /RETURN 

/ 
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PAGE 


/FLOATING SUBTRACT-USES FLOATING ADO 


/FSWHi 




FFSUBl, 

0 




JMS I 

PATCHP 

/WHICH MODE? 


TAD I 

FFSUBl 

/CALLED BY USER-GET ADDR 


JMS I 

ARGETL 

/PICK UP ARGUMENT 


CDF 
JMS I 

FFNEGA 

/NEGATE FAC i 


TAO 

FFSUBl 



JMP I 

SUB0P 


FFNEGA, 

FFNEG 



SUB0P, 

SUB0 




OF OP 


/ 

/FLOATING DIVIDE 
/FSWITCHM 
/THIS IS OP/FAC 
/ 


FFDIV1, 

0 



JMS I 

PATCHP 


TAD I 

FFOIV1 


JMS 1 
CDF 

ARGETL 


TAD 

ACH 


DCA 

OPH 


TAD 

SWP 

ACX 


DCA 

ACH 


TAO 

OPX 


DCA 

ACX 


TAD 

SWP 

OPL 


DCA 

OPX 


TAO 

ACLO 


DCA 

OPL 


TAD 

SWP 

OPH 


DCA 

ACLO 


TAD 

FFDIV 1 


OCA I 

FFDP 


TAD 

FD1 


OCA I 

MDSETP 


JMP I 

MO IP 

MD1P, 

MOi 


ARGETLf 

ARGET 


MDSETP, 

MDSET 


FFDP» 

FFDIV 


FD1, 

FFOl 



/WHICH MODE OF CALL? 

/CALLED BY USER-GET ADDR, 

/(INTERP.)-GET OPRND.-AODR, IN AC 

/CDF TO FIELD OF PACKAGE 

/SWAP FAC AND OPRND-OPH IN MQJ 

/STORE ACH IN OPH 

/GET EXP OF FAC 

/OPH TO AC, ACX TO MO 

/STORE OPH IN ACM 

/STORE OPX IN ACX 

/OPL TO MO, ACX TO AC 

/STORE ACX IN OPX 

/STORE ACLO IN OPL 
/OPH TO MQ FOR LATER 

/STORE OPL IN ACLO 
/SET UP SO WE RETN TO 
/NORMAL DIVIDE ROUTINE 


/GO ARRANGE OPERANDS 
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/PATCH TO EAE ADO ROUTINE 

ADOPCHr 0 

TAD AC1 
TAD RB4000 
DPSZ 

JMP AOOP1 
CU CMC RTR 
ISZ ACX 
NOP 

ADDP1 , TAO RB4000 

JMP I AODPCH 
RB4000, 4000 


/ROUTINE TO BUMP CHARACTER NUMBER 

/USED BY CHAR PACKING ROUTINES, BUT ITS HERE AS A PATCH 

*5573 
CNOBMU 0 

TAD I WORD0 /HEADER WORD 

TAD K0100 /ADD 1 TO THE COUNT BITS 

DCA I WORD0 

JMP I CNOBML / DONE 
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/ 

/FLOATING MULTIPLY— DOES 4 SINGLE MULTIPLIES WITH EAE 
/THIS USES THE PACT THAT IP AC IS NON-ZERO WHEN YOU DO 
/A MUY IN8TR, THE AC IS AOOEO TO RESULT OP THE MULTIPLY. 


/(IN THE LOW ORDER i NATCHERLY) 


FFMPY, 


PAGE 

« 

JMS I PATCHP 
TAD I PPMPY 
JMS MDSET 


Cl* + 


MUY 


TAD 


tort 

TJEO 

tst 

EOT 


ACM 

"TOT" 


PUD 

ACLO 

TAD 

OCA 

_MUY 

fpm 

twit 


ACX 

ACX 


/WHICH MODE? 

/CALLEO BY USER-GET ADDRESS 
/SET UP POR MULT 

/MULTIPLY-LOW ORDER FAC STILL IN MO 
/THIS IS PRODUCT OP LOW ORDERS 
/ZAP LOW ORDER RESULT-INSIGNIFICANT 
/GET LOW ORDERU) OF FAC 
/TO MO-HIGH ORD, RE5LT OF LAST MPV 
/TO AC-WILL BE ADDED TO RESLT-THIS 
/IS PRODUCT-LOW ORD FAC. HI ORD OP 
/STORE RESULT 

/HIGH ORDER FAC TO MO, OPX TO AC 

/AOD FAC EXPONENT-GET SUM OF EXP5, 
/STORE RESULT 

/MUL. HIGH ORDER FAC BY LOW ORO OP. 

/HIGH ORDER FAC WAS IN MO 

/ADO IN RESULT OF SECOND MULTIPLY 


AC0 

DC A ACM 

TAD ACLO 

8WP 

DCA AC0 

RAL 

DCA ACLO 



/STORE HIGH ORDER RESULT 

/GET HIGH ORDER FAC 

/SEND IT TO MO AND LOW ORD, RESULT 

/OF ADD TO AC-STORE IT 

/ROTATE CARRY TO AC 

/STORE AWAY 

/NOW 00 PRODUCT OF HIGH ORDERS 
/FAC HIGH IN MQ, OP HIGH IN OPL 
/ADD IN THE ACCUMULATED # 


ACH 

SNA 

JMP 

RTZROf 

/ZERO? 

/VES.CO 7EBn EXPONENT 

— nun — 


TTO-NORMALIZE (1 SHIFT AT MOST!) 

DCA 

ACH 

/STORE HIGH ORDER RESULT 

CLA 

5CA 

/GET STEP CNTR-DIO WE NEED A SHIFT? 

SNA 

CLA 


JMP 

SNCK 

/NO-JUST CHECK SIGN 

CLA 

CMA 

/YES-MUST OECREASE EXP, BY l 

TAD 

ACX 


RTZRO, OCA 

ACX 

/STORE BACK 
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TAD AC0 

SPA CLA 

OPIC 

SNCK * ISZ MSIGN 

JMP MPOS 

TAD ACM 

DCM 

DCA ACM 

MPOS* SWP 

DCA ACLO 

ISZ FFMPY 

JMP I FFMPY 

MSIGN, 0 

ARGETK, arget 

DVOFL, DV 


/ROUTINE TO SET UP FOR MULTIPLY AND DIVIDE 
/ 

MDSET, 0 

JMS I ARGETK /GET OPERAND CADDR. IN AC) 

CDF /CHANGE TO OATA FIELD QF PACKAGE 

MOl, CLA CLL CMA RAL /MAKE A MINUS TWO 

MSIGN /AND STORE IN MSIGN, 

OPL /GET LOW ORDER MANTISSA OF OP. 

/GET INTO RIGHT OROER C OPH IN MQ) 

/NEGATIVE? •- 

«+3 /NO 

/YES-NEGATE IT 
MSIGN /BUMP SIGN COUNTER 

/SHIFT OPRND LEFT 1 TO AVOID OVRFLO 

/STORE BACK-OPH CONTAINS LOW ORDER 
/ OPL CONTAINS HIGH ORDER 

/GET THE MANTISSA OF THE FAC 

/MAKE IT CORRECT ORDER 
/NEGATIVE? 

FPOS /NO 

/YES-NEGATE IT 

MSIGN /BUMP SIGN COUNTER (MAY SKIP) 

/STORE BACK-ACH CONTAINS LOW ORDER 
/ ACLO CONTAINS HIGH ORDER 

MDSET /RETURN 


FPOS* 


/IS HIGH ORDER OF OVERFLO WD, 1? 
/YES-ADD 1 TO LOW ORDER-STILL IN MQ 
/RESULT NEGATIVE? 

/NO-GO ON 

/YES-GET HIGH ORDER BACK 

/LOW ORDER STILL IN MQ-NEGATE 

/STORE HIGH ORDER BACK 

/LOW ORDER TO AC 

/STORE AWAY 

/BUMP RETURN 

/RETIRN 
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/ 

/FLOATING DIVIDE 
/ 



•5722 



PPDIV, 

0 





JHS 

I 

PATCHP 

/WHICH MODE? 


TAO 

I 

FFDIV 

/CALLED BY USER-GET ARG, ADDRESS 


JMS 


MD8ET 

/GET ARG, AND SET UP SIGNS 

*FDl» 

~o7T 



/OIVIDE-ACH AND ACLO IN AC,MG 


aQPJ- 



/THIS IS HI (1) ORDER DIVISOR 


OST 

*£3- 



/OJ^T TO AC0,R£M TO ACl 


-fZL 


CL A 

/DIVIDE ERROR? 


JMP 

I 

OVOFL 

/YES-HANOLE IT 


TAO 


OPX 

/OO EXPONENT CALCULATION 


CMA 


I AC 

/EXP, OF FAC • EXP, OF OP 


TAD 


ACX 



OCA 


ACX 



OPSZ 


/IS QUOT ■ 0T 


SKP 



/NO-GO ON 


OCA 


ACX 

/YES-ZERO EXPONENT 

DVLP» 

MUY 



/NO-THIS IS Q*0PL*2**-12 


OPM 





DCM 



/NEGATE IT 


TAO 


ACl 

/SEE IF GREATER THAN REMAINDER 


SNL 





JMP 

l 

OVOPSP 

/YES-ADJUST FIRST OIVIOE 


DVI 



/NO-DO Q*0PL*2**-12/0PH 


OPL 





8ZL 


CLA 

/DIV ERROR? 


JMP 

l 

OVOFL 

/YES 

OVLP1# 

TAO 


AC0 

/NO-GET QUOT OF FIRST DIV, 


SMA 



/NEGATIVE? 


JMP 

LSR 

1 

isz 


.♦5 

/NO-REMEMBER-QUOT OF 2N0 OIV, IN MQ 
/YES-MUST SHIFT IT RIGHT 1 



ACX 

/ADJUST EXPONENT 


NOP 





ISZ 


MSIGN 

/SHOULD SIGN BE MINUS? 


SKP 



/NO 


OCM 



/VES-00 IT 

OBAOl , 

OCA 


ACM 

/STORE IT BACK 


8MP 





OCA 


ACLO 



ISZ 


FFDIV 



JMP 

I 

FFDIV 

/BUMP RETN, AND RETN, 

DVOPSp, 

DVOM 



DBAD, 

CAM 





OCA 


ACX 

/ZERO EXPONENT 


JMP 


OBAD1 

/GO ZERO MANTISSA 
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/FLOATING ADDITION-IN ORDER NOT TO LOSE BITS, wE DO NOT 
/SHIFT BOTH NUMBERS RIGHT 1 BIT BEFORE ADO-ONLY SHIFTS DONE 
/ARE TO ALIGN EXPONENTS, 

/ 



PAGE 



FFADU, 

0 





JMS 

I 

PATCHP 

/WHICH MODE OF CALLING 


TAD 

I 

ffaod 

/CALLED DIRECTLY BY USER 


JMS 

l 

ARGETP 

/PICK UP ARGUMENTS 


CDF 



/CHANGE TO CURRENT DATA FIELD 

FAOlf 

TAD 


QPX 

/PICK UP EXPONENT OF OPERAND 


MOL 



/SEND IT TO MQ FOR SUBTRACT 


TAD 


ACX 

/GET EXPONENT OF FAC 


SAM 



/SUBTRACT-RESULT IN AC 


SPA 



/NEGATIVE RESULT? 


cma 


I AC 

/YES-MAKE IT POSITIVE 


DC A 


CNT 

/STORE IT AS A SHIFT COUNT 


TAD 


CNT 

/COUNT TOO BIG? (CAN'T BE ALIGNED) 


tad 


M27 



SPA 

SNA CLA 



CMA 



/NO-OK 


DCA 


AC0 

/YES-MAKE IT A LOAD OF LARGEST # 


DID 

Annpfi 


/GET ADDRESSES TO SEE WHO'S SHIFTED 


SGT 



/WHICH EXP GREATER (GT FLG SET 





/BY SUBTR, OF EXPS,) 


SWP 



/OPERAND'S-SMIFT THE FAC 


DCA 


SHFBG 

/STORE ADDRESS OF WHO GETS SHIFTED 


SWP 



/GET ADDRESS OF OTHER (0 TO MO) 


DCA 


DADR 

/THIS ONE JUST GETS ADDED 


SGT 



/WHICH EXPONENT WAS GREATER? 


JMP 


.♦3 

/FAC'S - DO NOTHING 


TAD 


OPX 

/OPERAND'S-PUT FINAL EXP, IN ACX 


DCA 


ACX 



OLD 



/GET THE LARGER # TO AC , MQ 

DAOR 9 

0 





SWP 



/PUT IN THE RIGHT ORDER 


ISZ 


AC0 

/COULD EXPONENTS BE ALIGNED? 


JMP 


too 

/NO-JUST LEAVE LARGER IN AC, MO 


DST 



/YES-STORE THIS TEMPORARILY 


AC0 



/(IF ONLY FAC STORAGE WAS REVERSED) 


DID 



/GET THE SMALLER * 

SHF8G, 

0 





SWP 



/PUT IT IN RIGHT ORDER 


A$R 



/DO THE ALIGNMENT SHIFT 

CNT f 

0 
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DAD 



/ADO THE LARGER * 


AC0 





OST 



/STORE RESULT 


AC0 





SZL 



/OVERFLOW? (L NOT « SIGN BIT) 


CMA 



/NOTE-WE OIDN'T SHIFT BOTH RIGHT 1 


8MA 


CLA 



JMP 


NOOV 

/NOPE 


CLA 

CLL CML RAR 

/MAVBE-SEE IF 2 *S HAD SAME SIGN 


AND 


ACH 



TAD 


OPM 



SMA 


CLA 

/SIGNS ALIKE? 


JMP 


OVRFLO 

/YES-OVERFLOW 

NOOVf 

JMS 

I 

AODPCL 

/JUMP TO PATCH FOR THIS ROUTINE 

LQD, 

MM I 



/NORMALIZE (LOW ORDER STILL IN MQ) 


DCA 


ACH 

/STORE FINAL RESULT 


8NP 



/GET AND STORE LOW ORDER 


DCA 


ACLO 



SCA 



/GET SHIFT COUNTER!# OF NMI SHIFTS) 


CMA 


I AC 

/NEGATE IT 


tad 


ACX 

/ANO AO JUST FINAL EXPONENT 


OCA 


ACX 


AOON, 

ISZ 


FFAOD 

/BUMP RETURN PAST ADDRESS 


JMP 

I 

FFAOD 

/RETURN 

OVRFLOr 

TAD 

ASR 

1 

TAD 


AC1 

/OVERFLOW-GET HIGH ORDER RESLT BACK 
/SHIFT IT RIGHT 1 



KK4000 

/REVERSE SIGN BIT 


DCA 


ACH 

/AND STORE 


8NP 





DCA 


ACLO 

/STORE LOW ORDER 


I8Z 


ACX 

/BUMP EXPONENT 


NOP 





JMP 


AOON 

/OONE 

KK4000# 

4000 



M27 f 

mil 




ADDRSf 

OPM 





ACM 





ARGETP, ASSET 

/FLOATING SUBTRACT-USES FLOATING ADD 


/FSN01I 

FFSUBf 

0 





JMS 

I 

PATCH? 

/WHICH MOOE? 


TAD 

I 

PPSUB 

/CALLED BY USER-GET AODRESS OF OP 


JMS 

X 

ARGETP 



COF 





TAO 


OPL 

/OPH IS IN MQ t 


SWP 



/PUT IT IN RIGHT ORDER 


DCM 



/NEGATE IT 


DCA 


OPH 

/STORE BACK 


MOA 





DCA 


OPL 



TAD 


FPSUi 

/GO TO AOO 

SUS0, 

DCA 


FFAOD 



JMP 


FAOi 
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/ 

/floating negate--negate floating ac 
/ 

FFNEG, 0 


SWAB 


/MUST BE MODE 0 

DID 

ACH 


/GET MANTISSA 

SWP 


/CORRECT ORDER PLEASE 1 

DCM 


/NEGATE IT 

DC A 

ACH 

/RESTORE 

SWP 


/SEND 0 TO MQ 

DCA 

ACLO 


JMP I 

FFNEG 



/continuation of divide routine 

t WE ARE ADJUSTING THE RESULT OF THE 
/FIRST DIVIDE. 


DVOPS, 

CMA 

I AC 



DCA 

ACi 

/ADJUST REMAINDER 


TAD 

OPl 

/WATCH FOR OVERFLOW 


CLL CMA 

I AC 



tad 

ACI 



snl 




JMP 

DVOPi 

/DON'T ADJUST QUOT, 


DCA 

ACI 



CMA 




TAD 

AC0 



DCA 

AC0 

/REDUCE QUOT BY 1 

DVOP1, 

CLA 

CLL 



TAD 

ACI 

/GET REMAINDER 


SNA 


/ZERO? 


CAM 


/YES-ZERO EVERYTHING 


DVI 


/NO 


QPL 




szi 

CLA 

/DIV. OVERFLOW? 


JMP I 

DVOVR 

/YES 


DCM 


/NO* AD J UST HI QUOT (MAY BE 5 


JMP I 

DVLP1P 

/GO BACK 

DVLPIPi 

DVLPI 



DVOVR, 

DV 



addpcl, 

ADDPCH 




NOPUNCH 
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/ 

/ARGUMENT PICK UP ROUTINE-ENTER WITH DATA FIELD SET TO EITHER 
/PITS, DATA FIELD OR FLTG. INSTR, FIELD, 

/ADDRESS OF OPERAND IS IN THE AC ON ENTRY, 

/ON RETURN, THE AC IS CLEAR 

/ 


06200 

0000 ARGET « 

0 


06201 

3042 

DCA AC2 

/STORE ADDRESS OF OPERAND 

06202 

1442 

TAD I AC2 

/PICK UP EXPONENT 

06203 

3047 

DCA QPX 


06204 

4310 

JMS ISZAC2 

/MOVE POINTER TO HORD, WATCH FOR FIELD OVERLAP 

06205 

1442 

TAD I AC2 

/PICK IT UP 



IFZERQ EAE < 


06206 

7000 

NOP 


06207 

7000 

NOP 

> 




IFNZRO EAE < 




ENPUNCH 




* , 

SWAB 

/OPH INTO MQ BECAUSE EAE ROUTINES 



MQA 

/EXPECT TO FIND IT THERE 



NOPUNCH 

» 


06210 

3050 

DCA OPH 

/STORE 

06211 

4310 

JMS ISZAC2 

/MOVE POINTER TO LORD, WATCHING FOR OVERLAP 

06212 

1442 

TAD I AC2 

/PICK IT UP 

06213 

3051 

DCA OPL 

/STORE IT 

06214 

5600 

JMP I ARGET 

/RETURN 
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IFZERO EAE < 

/ 

/ROUTINE TO NORMALIZE THE FAC 

/ 


06215 

0000 

FFNOR, 

0 


06216 

1045 


TAD 

ACH 

06217 

7450 


SNA 


06220 

10^6 


TAD 

ACLO 

06221 

7450 


SNA 


06222 

1041 


tad 

AC 1 

06223 

7650 


SNA 

CLA 

06224 

5341 


JMP 

ZEXP 

06225 

7332 

*-NORMLP, 

CLA CLL 

CML RTR 

06226 

1045 


TAD 

ACH 

06227 

7440 


SZA 


06230 

5233 


JMP 

.+3 

06231 

1046 


TAD 

ACLO 

06232 

7640 


SZA 

CLA 

06233 

7710 


SPA 

CLA 

<*06234 

5236 


JMP 

FFNORR 

V 0«35 

Li 

5334 


JMP 

fnlp 

06236 

3041 

FFNOKR, 

DCA 

AC 1 

06237 

-W ttr- 

5615 

6 WT 

^ JMP I 

FFNOR 


/GET THE HI OROER MANTISSA 
/ZERO? 

/YES-HOW ABOUT LOW? 

/LOW«0, IS OVRFLO BIT ON? 

/M0-ZERO EXPONENT 
/NOT 0-MAKE A 2000 IN AC 
/ADD HI ORDER MANTISSA 
/HI ORDER a 6000 
/NO-CHECK LEFT MOST DIGIT 
/YES-6000 OK IF LOW»0 

/2, 3, 4, 5, ARE LEGAL LEFT MOST DIGS, 

/FOR NORMALIZED #- (+2000»4 , 5, 6, 7) 

/JUMP SO FFGET AND PUT ARE OkGED RIGHT 

/DONE W/NORMALIZE-CLEAR AC1 
/RETURN 


IFNZRO EAE 
ENPUNCH 




/ 

/ROUTINE TO NORMALIZE THE FAC 
/ 


ffnor, 


*6215 

0 

CPF 


/CHANGE D.F, TO FIELD OF PACKAGE 

SWAB 


/FORCE MODE B 

OLD 


/PICK UP MANTISSA 

ACH 

SWP 


/PUT IT IN CORRECT ORDER 

NMI 


/NORMALIZE IT 

SNA 


/IS THE * ZERO? 

DCA 

ACX 

/ YES-INSURE ZERO EXPONENT 

DCA 

ACH 

/STORE HIGH ORDER BACK 

SWP 


/STORE LOW OROER BACK 

DCA 

ACLO 


CLA 

5CA 

/STEP t0U1YTER TO AC 

CMA 

I AC 

/NEGATE IT 

TAD 

ACX 

/AND ADJUST EXPONENT 

OCA 

ACX 


JMP I 

FFNOR 

/RETURN 

NOPUNCH 
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/ 

/FLOATING GET 
/ 



6241 

*6241 



06241 

0000 FFGET , 

0 




06242 


JMS 

I 

PATCHP 

/WHICH MODE OF CALL 

06243 

1641 

TAD 

I 

FFGET 

/CALLED BY USER-GET AODR, OF OP 

06244 

4200 

JMS 


ARGET 

/PICK UP OPERAND 

06245 

1047 

TAD 


OPX 


06246 

3044 

DCA 


ACX 

/LOAD THE OPERAND INTO FAC 

06247 

1051 

TAD 


OPL 


06250 

3046 

OCA 


AGIO 


06251 

1050 

TAD 


OPH 


06252 

3045 

DCA 


ACH 


06253 

2241 

ISZ 


FFGET 


06254 

6201 

CDF 




06255 

5641 

JMP 

I 

FFGET 

/RETN. TO CALL *2 


/ 

/FLOATING PUT 
/ 


06256 

0000 FFPUT, 

0 




06257 

4*§rV^^ 

JMS 

I 

PATCHP 

/WHICH MODE OF CALL? 

06260 

1656 

TAD 

I 

FFPUT 

/CALLED BY USER-GET OPR, ADOR 

06261 

3241 

DCA 


FFGET 

/STORE IN A TEMP 

06262 

1044 

TAD 


ACX 

/GET FAC AND STORE IT 

06263 

3641 

OCA 

I 

FFGET 

/AT SPECIFIED ADDRESS 

06264 

4275 

JMS 

ISZFGT 

/BUMP POINTER, WATCHING FOR FIELD OVERLAP 

06265 

1045 

TAD 


ACH 


06266 

3641 

DCA 

I 

FFGET 


06267 

4275 

JMS 

ISZFGT 


06270 

1046 

TAD 


ACLO 


06271 

3641 

DCA 

I 

FFGET 


06272 

2256 

ISZ 


FFPUT 

/BUMP RETN, 

06273 

6201 

CDF 




06274 

5656 

JMP 

I 

FFPUT 

/RETN, TO CALL+2 


/ROUTINES TO BUMP ARGET AND FPUT POINTERS AND INCREMENT THE 
/DATA FIELD IF THE POINTER CROSSES A FIELD BOUNDARY 


06875 0000 ISZF6T » 0 


06276 

2241 

ISZ FFGET 

/BUMP POINTER 


06277 

5675 

JMP I ISZFGT 

/NO SKIP MEANS JUST 

RETURN 

06300 

7410 

SKP 

/SKIP MEANS WE HAVE 

TO INCREMENT DATA FIELD 

06301 

327S 

NEWCOF, DCA ISZFGT 

/THIS INST EXECUTED 

ONLY BY ISZAC2 

06302 

6214 

RDF 

/GET THE DATA FIELD 


06303 

1307 

TAD CDF 10 

/BUMP BY 1 AND MAKE 

A CDF 

06304 

3305 

DCA .♦! 

/PUT IN LINE 


06305 

6305 

• 



06306 

5675 

JMP I ISZFGT 

/RETURN ' 


06307 

6211 

CDF10, CDF 10 



06310 

0000 

I8ZAC2, 0 



06311 

2042 

ISZ AC2 

/BUMP POINTER 


06312 

5710 

JMP I ISZAC2 

/NOTHING HAPPENED 
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06313 1310 

06314 5301 


TAO ISZAC2 
JMP NEWCOF 


/NEED NEW DF. GET RETURN ADOR 
/AND BUMP OF 
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IPZERO EAE * 

/ 

/ROUTINE TO ADJUST OUOTINET OP FIRST DIVIDE IMAYBE) WHEN THE 
/REMAINDER OP THE FIRST DIVIDE IS LESS THAN QUQT*OPL 
/USED BY PLTG. DIVIDE ROUTINE 
/ 



7041 

DVOP8, 

CMA 

1AC 

06316 

3045 


DC A 

ACH 

06317 

7100 


CLL 


06320 

1050 


TAD 

OPH 

06321 

1045 


TAD 

ACH 

06322 

7420 


SNL 


06323 

3330 


JMP 

DVOP1 

06326 

3045 


DCA 

ACH 

06323 

7040 


CMA 


06326 

1041 


TAD 

AC1 

06327 

3041 


DCA 

AC1 

06330 

7300 

DVOP1, 

CLA 

CLL 

06331 

1045 


TAO 

ACH 

06332 

3733 


JMP I 

DV0P2P 

06333 

5535 

DV0P2P» 

DV0P2 


06336 

7160 

FNLP» 

CLL CML 

CMA 

06333 

1044 


TAD 

ACX 

06336 

3044 


DCA 

ACX 

06337 

4640 


JMS I 

AL1P 

06340 

5223 


JMP 

NORMLP 

06341 

3044 

ZEXP* 

OCA 

ACX 

06342 

5236 


JMP 

FFNQRR 


/NEGATE AND STORE REVISED REMAINDER 


/WATCH FOR OVERFLOW 

/OVERPLOW-DON«T ADJUST QUOT, OF 1ST DIV. 
/NO OVERPLOW-STORE NEW REM. 

/SUBTRACT 1 FROM QUOT OP 
/PIRST DIVIDE 


/GET HI ORD OP REMAINDER 
/GO ON 


/-l 

/SUBTR, 1 FROM EXPONENT 

/SHIFT FAC LEFT l 

/GO BACK AND SEE IF NORMALIZED 
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/FSQUARE-SGUARE 

/ 


FAC-CAU.S MULTIPLY TO MUL. FAC 8Y ITSELF 



6347 

A - 

*63«7 



06347 

0000 

FFSO# 

0 



06350 

4753 


JMS I 

TMPY 

/CALL MULTIPLY TO MULTIPLY 

06351 

0044 


ACX 


/FAC BY ITSELF 

06352 

5747 


JMP I 

FFSO 

/DONE 

06353 

560$ 

TMPY# 

FFMPY 





f 

/ 

ERROR 

TRAPS 


06354 

4516 

00# 

JMS I 

ERROR 

/OVERFLOW 

06355 

4516 

DV# 

JMS I 

ERROR 

/division ERROR 

06356 

4537 


JMS I 

FCLR 

/RETURN 0 IN FAC 

06357 

5513 


JMP I 

ILOOPL 


06360 

4516 

LM, 

JMS I 

ERROR 

/ILLEGAL ARGUMENT 


06361 

06362 

06363 

06364 

06365 

06366 

06367 

06370 

06371 

06372 

06373 

06374 

06375 

06376 

06377 



10 
7710 
5374 
1347 
7141 
1015 
7620 
2361 
5761 

1347 

7710 

5366 

5761 


/ROUTINE TO COMPARE 2 ABSOLUTE 12 BIT INTEGERS TO DETERMINE WHICH IS 
/THE LARGER, WHEN CALLED# NUMBER "A" IS IN THE AC # NUMBER "B H IS IN 
/CORE LOCATION BABS ON PAGE 0, RETURNS TO CALL+1 IF B>aA . C ALL+2 IF 
/A»B 


NUMCOL# 0 

DC A A 
TAD BABS 
SPA CLA 
\ JMP BNEG 
MOFTfcN* TAD A 

L CIA 
T< ABS 
SNt C 
ISZ 

JMP I NUMC 


BNEG i 



TAD A 
SPA CLA 
JMP MOFTEN 
JMP I NUMCOL 


/SAVE A 
/GET B 
/B»0? 

/NO-SPECIAL CASE CHECK 
/YES-GET A AGAIN 
/NEGATE 

/IF B»M, THERE WILL BE A CARRY 


LS6 / 


'/ 


A AGAIN 
NEG ALSO? 

THE CODE AVOE TO COMPARE 
> A 


fCt 

7N 

>0 


, ft 


rr/3 


74C *3 
CL-A 

l" l * *ryp€ 

v ^ P j?teo£ 
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00400 

00401 

00402 

00403 

00404 

00405 
00400 
00407 

00410 

00411 

00412 

00413 

00414 

00415 
00410 
00417 

00420 

00421 

00422 

00423 

00424 

00425 
00420 
00427 

00430 

00431 

00432 

00433 

00434 

00435 
00430 
00437 
08440 
04441 

00442 

00443 

00444 

00445 
00440 
00447 
00450 
08451 

00452 

00453 

00454 


0400 *OVERLAY*3000 


/TELETYPE *DRIVER"-WHEN CALLED, GRABS CHARACTERS FROM THE 

/TELETYPE UNTIL A CR IS SENT OR THE BUFFER IS FULL. ASSUMES TTY ENTRY 

/IS IN I/O WORK AREA. 


0000 

TTVDRIi 

0 


7410 


SKP 

/crlf only necessary on flush 

4553 

lflush, 

JMS I CRLF 

/PRINT A CR,LF 

1253 


TAD K277 

/PRINT A 7 SIGNIFYING WAIT FOR INPUT 

4522 


JMS I XPUT 


1504 


TAD I WOROl 

/BUFFER ADDRESS 

3584 


DCA I W0RD3 

/INITIALIZE POINTER TO START OF BUFFER 

4540 


JMS 1 CNOCLL 

/INITIALIZE CHAR 4 TO 1 

4510 

TTYIN, 

JMS I PRINT 

/EMPTY TTY BUFFER BEFORE AWAITING INPUT 

5210 


JMP ,-l 


1252 


TAD K5252 

/OESIGN INTO AC 

0031 

K8FA, 

KSF 

/CHAR READY? 

5321 


JMP SPIN 

/no-oiddle while we wait 

7300 


CLA CLL 

/FLUSH SPINNER OUT OF AC 

1077 


TAD K0200 

/FORCE PARITY BIT 

0034 


KRS 

/GET CHAR 

3051 


DCA CHAR 

/SAVE 

1053 


TAD CHAR 


4522 


JMS I XPUT 

/ECHO IT 

0032 


KCC 

/CLEAR KEYBOARD FLAG AND SET READER RUN 

1053 


TAO CHAR 


1240 


TAD MCTRLU 

/IS IT CTRL/UT 

7050 


SNA CLA 


5202 


JMP LFLUSH 

/YES-START AGAIN 

1053 


TAD CHAR 

/NO 

1250 


TAO CRUBOT 

/IS IT RUBOUTT 

7450 


SNA 


5254 


JMP BACKUP 

/YES-BACK UP BUFFER POINTER 

1247 


TAD MCR 

/NO-IS IT CR? 

7050 


SNA CLA 


5300 


JMP CR 

/YES-DONE 

1053 


TAD CHAR 


4545 


JMS I PACKL 

/PACK CHAR IN BUFFER 

4547 


JMS I BUFCHL 

/BUFFER FULL? 

5051 


JMP I IOLK 

/YES-ERROR 

7000 


NOP 

/NO-CHAR 3 LEFT 

7000 


NOP 

/NO-2 AND 3 LEFT 

5210 


JMP TTYIN 

/NO-NEXT CHAR 

7553 

MCTRLU, 

-225 


0182 

MCR, 

377-215 


7401 

CRUBQT, 

-377 


0074 

IOLK, 

ID 


5252 

KS252, 

5252 


0277 

K277 , 

277 


1500 

BACKUP, 

TAD I W0R03 

/BUFFER POINTER 
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06455 

7041 


CIA 


06458 

1564 


TAD 

I WOROl 

06457 

7650 


SNA 

CL A 

06460 

5210 


JMP TTYIN 

06461 

1273 


tad 

K334 

06462 

4522 


JMS 

I XPUT 

06463 

4551 


JMS 

I CHRNOL 

06464 

5274 


JMP CIS 

06465 

5301 


JMP C3B 

06466 

4546 


JMS 

I CNQCLL 

06467 

7240 

PBACK, 

CIA 

CMA 

06470 

1566 


TAD 

I WORD3 

06471 

3566 


DCA 

X M QRD3 

06472 

5210 


JMP 

TTYIN 

06473 

0334 

K334, 

334 


06474 

1563 

C1B, 

TAD 

I WORD0 

06475 

0105 


AND 

K7477 

06476 

1077 


TAD 

K0200 

06477 

3563 


DCA 

I WORD0 

06500 

5210 


JMP 

TTYIN 

06501 

1563 

C3B, 

TAD 

1 WORD0 

06502 

0105 


AND 

K7477 

06503 

1076 


TAD 

K0100 

06504 

3563 


DCA 

I WORD0 

06505 

5267 


JMP 

PBACK 

06506 

4553 

CR, 

JMS 

I CRLF 

06507 

1320 

TAD 

K4 

06510 

1200 


TAD 

TTYDRI 

06511 

3200 


DCA 

TTYDRI 

06512 

1053 


TAD 

CHAR 

06513 

4545 


JMS 

I PACKL 

06514 

1564 


TAD 

I WOROl 

06515 

3566 


DCA 

X WORD3 

06516 

4546 


JMS 

I CNOCLL 

06517 

5600 


JMP 

I TTYDRI 

06520 

0004 

K4, 

4 


06521 

2017 

SPIN, 

ISZ 

SPINNR 

06522 

7410 


SKP 

06523 

7064 


CMA 

CML RAL 

06524 

5213 


JMP 

KSFA 


/NEGATE 

/COMPARE AGAINST START OP BUFFER 
/BUFFER EMPTY? 

/YES-THERE IS NOTHING TO RUBOUT 
/ECHO "\ H 

/GET CHAR # OF NEXT CHAR (LAST # + l) 

/I 

/3 

/IT WAS 2-MAKE IT l 

/-I 

/BACK UP BUFFER POINTER 
/NEXT CHAR 


/IT WAS l-MAKE IT 3 

/NO NEED TO BACK UP POINTER 


/IT WAS 3, MAKE IT 2 
/BACK UP POINTER 


/ECHO A CR,LF 

/BUMP DRIVE RETURN TO NORMAL 


/PACK CHAR IN BUFFER 

/initailze buffer pointers 
/RETURN 


/SPIN RANDOM * SEED 

/MARCH TO THE LEFT 
/CHECK FOR CHAR YET 
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/SUBROUTINE FBITGT-ROUTINE TO PUT FUNCTION BITS FROM INSTRUCTION INTO AC 


06525 

0000 

F8XTGT f 

0 


06526 

1064 


TAD INSAV 


06S2T 

7112 


CLL RTR 


06530 

7012 


RTR 

/PUT FUNCTION BITS IN BITS 8-11 

06531 

0074 


AND K0017 

/MASK THEM OFF 

06532 

5725 


JMP I FBITGT 

/RETURN 



/GOSUB 

POP ROUTINE-ROUTINE TO POP ELEMENT OFF GOSUB STACK 

06533 

0000 

POPS# 

0 


06S34 

1067 


TAD GSP 

/GET GOSUB STACK POINTER 

06535 

1347 


TAO MSTTOP 

/COMPARE AGAINST TOP OF STACK 

06536 

7710 


SPA CLA 

/ATTEMPT TO POP OF EMPTV STACK? 

06537 

4516 

GR, 

JMS I ERROR 

/YES-RETURN WITHOUT A GOSUB 

06540 

1467 


TAO I GSP 

/GET TOP STACK ELEMENT 

06541 

3040 


OCA TEMPI 

/SAVE 

06542 

7240 


CLA CMA 

/•I IN AC 

06543 

1067 


TAD GSP 

/BACK UP GOSUB STACK POINTER 

06544 

3067 


OCA GSP 


06545 

1040 


TAD TEMPI 

/GET POPPEO ELEMENT IN AC 

06546 

5733 


JMP I POPG 

/RETURN 

06547 

7325 

MSTTOPi 

-GSTCK 




/GOSUB 

RETURN 


06550 

4333 

RETRNIi 

JMS POPG 

/POP PC OFF GOSUB STACK 

06551 

7001 


I AC 

/BUMP OVER SECOND WORD OF GOSUB INST 

06552 

3774 


OCA I INTPLK 

/USE AS NEW PSEUDO-PC 

06553 

4333 


JMS POPG 

/POP CDF OFF STACK 

06554 

3515 


DCA I CDFPSL 

/ PUT IN LINE IN PWFECH 

06555 

5513 


JMP I ILOOPL 

/RETURN TO ILOOP 



/DATA LIST RE AO (NUMERIC) 

06556 

4765 

RDLISTi 

JMS I DLRELK 

/FETCH WORD FROM LIST 

06557 

3044 


DCA EXP 

/STORE AS EXPONENT 

06560 

4765 


JMS I DLRELK 


06561 

3045 


OCA HORD 

/HIGH MANTISSA 

06562 

4765 


JMS I DLRELK 


06563 

3046 


DCA LORD 

/LOW MANTISSA 

06564 

5513 


JMP I ILOOPL 


06565 

2311 

DLRELK, 

OLREAD 




/SUBROUTINE FTYPE-RETURNS TO CALL*! IF FILE NUMERIC , CALL*2 IF 

06566 

0000 

FTYPE, 

0 


06567 

1563 


TAO I NORD0 

/GET HEAOER 

06570 

7110 


CLL RAR 

/ TYPE TO LINK 

06571 

7630 


SZL CLA 

/IS IT NUMERIC? 

06572 

2366 


ISZ FTYPE 

/NO-BUMP RETURN 

06573 

5766 


JMP I FTYPE 

/RETURN 
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06574 0302 INTPUK, INTPC 


/OS/S BASIC RUNTIME STSTEM 
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8800 PAGE 


/LAST PAGE OP BRTS-CQNTAINS SAC, I/O TABLE, ANO SOME MISCELLANEOUS CODE 

/TELETYPE INPUT BUFFER (74 CHARACTERS LONG) * 

/THIS BUFFER CONTAINS ONCE ONLY START CODE WHEN LOAOED 


TTYBUF* 


08800 

1025 

STARTS, 

TAD COFPS 

08801 

1242 


TAO MCDF1 

08802 

7640 


SZA CLA 

08803 

SS13 


JMP I ILOOPL 

08804 

1026 


TAD PSSTRT 

08 80S 

3015 


OCA BABS 

08808 

1102 


TAO K0400 

08807 

4405 


JMS I NUMCOM 

08810 

5213 


JHP CHK82 

08811 

1074 


TAO K0017 

08812 

5237 


JMP BAS 

08813 

1026 

CHKB2, 

TAD PSSTRT 

08814 

3015 


DCA BABS 

088 IS 

1246 


TAD C1000 

08818 

4405 


JMS I NUMCOM 

08817 

5222 


JMP CHKB3 

08820 

1245 


TAD C16 

08821 

S237 


JMP BAS 

08822 

1026 

CHKB3, 

TAO PSSTRT 

08823 

3015 


OCA BABS 

08624 

1247 


TAO Cl 400 

0662S 

4405 


JMS I NUMCOM 

06626 

5231 


JMP CHKB4 

06827 

1244 


TAO C14 

06830 

5237 


JMP BAS 

06831 

1026 

CHKB4, 

TAO PSSTRT 

08832 

3015 


OCA BABS 

06833 

1243 


TAO K2000 

08634 

4405 


JMS I NUMCOM 

0663S 

5513 


JMP I ILOOPL 

06636 

1073 


TAO K0010 

06637 

3036 

BAS, 

OCA BMAP 

06640 

5513 


JMP I ILOOPL 

06641 

0000 


0 

06842 

1567 

MCDF1, 

•6211 

06643 

2000 

K2000, 

2000 

06644 

0014 

C14, 

14 

06645 

0016 

C16, 

16 

06646 

1000 

C1000, 

1000 

06647 

1400 

C1400, 

1400 

06650 

0000 


0 

06651 

0000 


0 

06652 

0000 


0 

06653 

0000 


0 

06654 

0000 


0 

06655 

0000 


0 


/OF FOR BOTTOM OF PSEUDO-CODE 
/COMPARE TO A COF 40 
/DO THEY MATCH? 

/NO-ALL BUFFERS ARE FREE-START INTERPRETER 


/IS START OF PSEUDO-CODE BELOW 400 
/NO-CHECK FOR 1000 

/YES-SET ALL BUFFERS BUSY 


/IS START OF PSEUDO-CODE BELOW 1000 
/NO-CNECK 1400 

/YES-ONLY BUFFER 1 IS AVAILABLE 


/IS START OF CODE BELOW 1400? 
/YES-CHECK 2000 

/YES-ONLY BUFFER 1 AND 2 AVAILABLE 


/IS CODE START BELOW 2000? 

/NO-START INTERPRETER-ALL BUFFER FREE 
/YES-BUFFERS 1,2, AND 3 AVAILABLE 

/START INTERPRETER 
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0*656 

0000 


0 


06657 

0000 


0 


06660 

0000 

TTYEND 

t 0 



0103 


KM400*K 7400 




/********************* 

**“*********************“**‘************ 



/SUBROUTINE CHARNO-RETURNS TO CALLM IE CHAR #»1,CALL*2 IF 3,CALL*3 
/IF 2 

06661 

0000 

CHARNO 

* 0 


06662 

1563 


TAD I WORD0 

/HEADER 

06663 

0273 


AND K300 

/ISOLATE CHAR * 

06664 

7106 


CLL RTL 


06665 

7006 


RTL 

/CHAR * TO BITS 0,1 

06666 

7540 


SMA SZA 

/IS IT 2? 

06667 

2261 


ISZ CHARNO 

/YES-BUMP RETURN 

06670 

7640 


SZA CU 

/IS IT 2 OR 3? 

06671 

2261 


ISZ CHARNO 

/YES-BUMP RETURN 

06672 

5661 


JMP I CHARNO 

/RETURN 

06673 

0300 

K300, 

300 



/ERROR 

MESSAGE FOR TTY 

INPUT OVERFLOW 

06674 

4516 

10 , 

JMS I ERROR 

/LINE FULL 

06675 

5676 


JMP I ,+l 

/flush buffer ano try again 

06676 

6402 


lflush 
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08877 

08700 

08701 

06702 

06703 

06704 

06705 

06706 

06707 

06710 

06711 

06712 

06713 

06714 
06713 

06716 

06717 

06720 

06721 

06722 

06723 

06724 

06725 

06726 

06727 

06730 

06731 

06732 

06733 

06734 
06733 

06736 

06737 

06740 

06741 

06742 

06743 

06744 

06745 

06746 

06747 

06750 

06751 

06752 

06753 

06754 

06755 


6677 *0VERLAY*3277 


///////////////////////////////////////////////////////Z//////// 
/////// I/O TABLE 5 13-WORD ENTRIES //////////////////////////// 
//////////////////////////////////////////////////////////////// 


0001 

TTYFi 

l 

6600 


TTYBUF 

0000 


0 

6600 


TTYBUF 

6400 


TTYDBI 

0000 


0 

0000 


0 

0000 


0 

0000 


0 

0000 


0 

0000 


0 

0000 


0 

0000 


0 

0000 

FILE!, 

0 

0000 


0 

0000 


0 

0000 


0 

0000 


0 

0000 


0 

0000 


0 

0000 


0 

0000 


0 

0000 


0 

0000 


0 

0000 


0 

0000 


0 

0000 

FILE2, 

0 

0000 


0 

0000 


0 

0000 


0 

0000 


0 

0000 


0 

0000 


0 

0000 


0 

0000 


0 

0000 


0 

0000 


0 

0000 


0 

0000 


0 

0000 

FILE3, 

0 

0000 


0 

0000 


0 

0000 


0 

0000 


0 

0000 


0 

0000 


0 

0000 


0 


/TELETYPE ENTRY-FILE IS ASCII 
/BUFFER ADDRESS 
/CURRENT BLOCK IN BUFFER 
/READ WRITE POINTER 
/HANDLER ENTRY 


/FILE #1 


/FILE #2 


/FILE #3 
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06756 

06T57 

06760 

06761 

06762 

06763 

06764 

06765 

06766 

06767 

06770 

06771 

06772 

06773 

06774 

06775 

06776 

06777 



0000 0 

0000 F1LE4, 0 
0000 0 

0000 0 

0000 0 

0000 0 

0000 0 

0000 0 

0000 0 

0000 0 


/FILE 44 


0000 0 
0000 0 
0000 0 


S 
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A 

6347 

ATANA1 

4427 

CHAIN 

3600 

DA 

2316 

ABSV 

3575 

ATANA2 

4435 

CHAR 

0053 

0 A0P 

0060 

ABSVAl 

2366 

ATAN A3 

4443 

CHARNO 

6661 

DATABA 

3666 

ABSVLl 

1376 

ATANB0 

4424 

CHAR3P 

2746 

DATCQM 

3615 

ACM 

0045 

ATANB1 

4432 

CHAR3U 

3064 

DATE 

3600 

*CL 

0046 

ATAN02 

4440 

CHECKL 

3461 

OATTAB 

4526 

ACLO 

0046 

ATANB3 

4446 

CHKB2 

6613 

OBAD 

6115 

ACSR 

6072 

A999 

2314 

CHKB3 

6622 

0BAD1 

5534 

ACSRPT 

4704 

BABS 

0015 

CHKB4 

6631 

DBAD1P 

6175 

ACX 

0044 

BACKUP 

6454 

CHR 

3400 

PCNT 

5137 

AC0 

0040 

BAS 

6637 

CHRNOL 

0151 

OCNTP 

4726 

AC1 

0041 

BCGET 

3035 

CHRSAV 

0040 

DE 

0557 

ACS 

0042 

BCGETL 

2776 

Cl 

3622 

DECNV 

5213 

ADCALC 

0640 

BCNT 

1030 

CL 

3644 

DECON 

5214 

ADPC 

0707 

BCPUT 

0747 

CLEANP 

4260 

OECONV 

5207 

ADFH 

4747 

BCPUTL 

3034 

CLENG 

3440 

DECQN1 

5335 

AJT 

0714 

BEND 

1137 

CLF 

3744 

DEVCAL 

0124 

AH 

6057 

BLINIT 

3361 

CLOSE 

34015 

qevnal 

4332 

ALIK 

3774 

BIREAD 

3344 

CLOSED 

3442 

DEVNAi 

4027 

AL1P 

6240 

bmap 

0036 

CNOBMK 

2765 

DEVNA2 

4030 

ALiPP 

5140 

bneg 

6374 

CNOBML 

5573 

OFETCH 

4103 

ALIPT 

4705 

BO 

4215 

CNOBMP 

3104 

OGTYP 

5076 

AL1PTR 

5642 

BOUTRS 

1064 

CNOCLL 

0146 

OGTYPP 

4725 

AMODE 

2324 

BSTRT 

1070 

CNOCLR 

3016 

0IG1 

4134 

ANOLST 

3401 

BSTRTA 

1027 

COMBNE 

2766 

DIG1A 

3745 

ANDLSS 

3542 

BSWL 

0144 

COMLOP 

2535 

0IG2 

4135 

ANOPTR 

3400 

BSHP 

2240 

COMMA 

2517 

0IG3 

4136 

AN1 

3775 

bufass 

4237 

COMMAP 

3250 

DIG4 

4137 

AN2 

3776 

BUFCMK 

2706 

COMMAS 

2557 

DIGS 

4140 

ANSPTR 

3541 

BUFCHL 

0147 

COS 

4053 

DISIN 

3634 

AP0001 

2175 

bufin 

1025 

COUNCK 

1363 

DLCDF 

2317 

AR6ET 

6200 

BUFOUT 

1026 

CPLOOP 

3234 

DLCDFl 

1176 

ARGETK 

5503 

Bl 

4234 

CR 

6506 

DLPTR 

0016 

AR6ETL 

5444 

B2 

4227 

CREAD 

3671 

DLREAD 

2311 

ARGETP 

6127 

B3 

4222 

CRETN 

3516 

DLREAL 

2416 

ARGPLK 

4307 

CAD 

4506 

CRPUNC 

0373 

DLRELK 

6565 

ARGPLL 

3511 

CBLK 

3676 

CRLF 

0153 

DLSTOP 

0027 

AR6P0L 

4220 

CCC240 

3460 

CRLFR 

2347 

DLSTRT 

0030 

ARGPRE 

0307 

CCR 

3743 

CRREP 

1360 

QMAP 

0035 

ARGPRL 

1420 

CC13 

4153 

CRUBOT 

6450 

DNA 1 

3617 

ARITHA 

1531 

CC16 

4414 

CSFN 

2001 

DNA2 

3620 

ARJMP 

0711 

GC240 

3747 

csmove 

4143 

ONUMBR 

5305 

ARRAYI 

0600 

CC3 

4331 

CSTA 

4162 

DO 

4055 

ARSTRT 

0022 

CC4 

4330 

CSTAC 

4163 

DOADD 

6023 

ARTRAP 

4365 

cdfinl 

0541 

C1B 

6474 

DONA 

6027 

ASC 

3407 

CDF 10 

0020 

C 1 000 

6646 

DONE 

3765 

ASCHR 

3123 

CDFP5 

0025 

C 1 3 

4531 

DONEE 

5066 

ASCNDE 

3244 

COFPSL 

0115 

C14 

6644 

DRAP 

4132 

ASCOLK 

3457 

CDPPSU 

0206 

C 1 4190 

6647 

DRARG1 

0551 

ASCON 

3660 

CDF0 

0761 

C16 

6645 

DRARG2 

0552 

ASCOUL 

3216 

CDF 000 

4336 

C20 

4333 

DRARG3 

0553 

ASCOUT 

1260 

CDF10 

6307 

C240 

2565 

DRCALL 

0537 

ATABDF 

0610 

CDF20 

4562 

C3 

4070 

DRERR 

0556 

ATABDL 

1173 

COIN 

3621 

C3B 

6501 

DRIVRL 

4134 

ATAN 

4200 

CFETCH 

1322 

C4 

4140 

DRIVRN 

4200 
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OS 

4411 

FACCIR 

0365 

FFNEG 

6135 

FNEGL 

0140 

OSWIT 

0052 

FACR 

6031 

FFNEGA 

5410 

FNLP 

6334 

OT1 

5101 

FACREL 

0133 

FFNEGK 

5501 

FNQM 

4304 

OV 

6355 

FACRES 

2373 

FFNtGP 

5303 

FNORL 

0136 

OVLP1 

5711 

FACSAL 

0132 

FFNEGK 

5773 

FNQRP 

6176 

DVU1 

5514 

FACSAV 

3371 

FFNGP 

4736 

FO 

1637 

DVOPS 

6315 

FAODC 

4060 

FFNOR 

6215 

FOTYPE 

2357 

DVOPSP 

5533 

faoock 

3473 

FFNQRR 

6236 

FOTYPL 

3343 

OVOPi 

6330 

FADDCL 

5312 

FFORMT 

1302 

F0UT1 

4625 

OVOP8 

5535 

faddm 

4357 

FFOUT 

4600 

F0UT2 

4634 

DV0P8P 

6333 

F AO 1 

6004 

FFOUTL 

1373 

F OUT 3 

4674 

DVOVR 

5777 

FATCHK 

4047 

FFPUT 

6256 

F0UT4 

4667 

DVTRAP 

3574 

FB 

4012 

FFPUTP 

0135 

FPPTM1 

1175 

DV1 

5765 

fbitgt 

6525 

FFSIN 

4000 

FPPTM2 

1172 

ova 

5755 

FBITS 

0117 

FPSO 

6347 

FPPTM3 

1167 

0V84 

5745 

FC 

3441 

FFSU8 

6117 

FPPTM4 

1164 

DV24P 

5532 

FCLR 

0137 

FPSU81 

5400 

FPPTM5 

1161 

0V24PT 

5136 

FCNT 

5275 

FGETL 

0134 

FPUTL 

0135 

EAE 

0000 

FO 

5527 

FGETM 

0134 

fputll 

0722 

EBC 

2730 

FDOON 

5742 

FI 

2307 

FPUTM 

0135 

EBU 

3740 

FDOONP 

5531 

FIDLE 

0123 

FRACT 

4071 

edblk 

3747 

FDIVl 

4062 

FIOVP 

3631 

FRANDM 

2342 

EOON 

5260 

FOIVM 

4360 

FIG08 

5241 

FREE70 

4062 

EP 

0560 

PDIVJI 

4067 

FILEFA 

1533 

FREE72 

4073 

EFATAL 

4254 

FDIV1M 

4361 

FICE1 

6714 

FROOT 

3646 

EFLG 

0056 

FDVPT 

5311 

FICE8 

6731 

FSORU 

4065 

EM 

3615 

F01 

5504 

FILE3 

6746 

FSORM 

4364 

EMOONE 

3600 

FDIP 

5721 

FICE4 

6763 

FSTOP 

3704 

EMDDNL 

3570 

FE 

4112 

filstr 

3316 

FSTOPI 

0563 

EMESS 

4117 

FERRCP 

4020 

FICSTU 

4321 

FSTOPN 

0561 

EMLOOP 

3545 

fetpag 

4111 

FISUBC 

4367 

FSTOPI 

0161 

EN 

4307 

FF 

0037 

F1XDNE 

4525 

FSU8L 

4064 

ENTLOK 

4275 

FFAOO 

6000 

FI XL 

4066 

FSU8LK 

1371 

ENTNO 

0162 

FFAOP 

4733 

FIXIP 

4515 

FSUBLL 

3573 

ENTRYN 

4031 

FFATN 

4200 

FJOCI 

0400 

FSUBM 

4362 

ENVAC 

3523 

FFCOS 

4053 

flow 

0057 

FSUBlt 

4063 

EOFSEC 

0143 

FFOIV 

5722 

FCEN 

4306 

FSU81M 

4563 

EOPSET 

2252 

FF0IV1 

5412 

FLING 

5142 

FSW1TC 

2060 

ERRDIS 

1460 

FFDP 

5446 

flink 

4722 

FTCOM . 

2424 

ERRET 

4057 

FFOVP 

4734 

FLN 

3643 

FTRPRT 

4505 

ERROR 

0116 

FFOl 

5726 

FLOABL 

4505 

fTYt 

3015 

ERRORR 

4013 

FFEXP 

4120 

FLOATB 

3420 

FTYPE 

6566 

ESTRA 

4143 

FFEXPC 

3625 

floatl 

0141 

FTYPt 

0150 

ESTRNG 

4121 

FFGET 

6241 

FLOATM 

0141 

FTYPSE 

3531 

ETAB 

4156 

FFIN 

5200 

floats 

4144 

FUJUMP 

1523 

ETABA 

4154 

ffinl 

3125 

flook 

4253 

PUNCH 

1473 

ETCOP 

4042 

ffinlk 

3477 

fm 

1624 

FUNC2I 

1472 

EXP 

0044 

FF INI 

5232 

Fmpyl 

3572 

FUNC3I 

1542 

EXPA0 

4421 

ffix 

4500 

FMPYLX 

4061 

FUNC4I 

1466 

EXPA1 

4016 

FFCOAT 

4533 

fmpyll 

5310 

FUNC5I 

1471 

EXPB1 

4413 

FFCOG 

4263 

FMPYLV 

3627 

GCHR 

5322 

EXPON 

3477 

FFCOGL 

3626 

FMPYM 

4356 

GO 

50*5 

EXPQNK 

3630 

FFMPP 

4735 

FN 

2005 

GETCH 

3126 

EXPON1 

4120 

FFMPY 

5600 

FNAP 

3437 

GETCHG 

3502 

E20P10 

1307 

FFMT 

4613 

FNEGI 

1226 

getchl 

0142 
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GETE 

5250 

JMSI4 

1421 

K0377 

0101 

LDHPR 

4502 

GKNT 

5003 

JMSI5 

1434 

K0400 

0102 

LDHPST 

2143 

60N 

3761 

JM5I7 

1545 

K0700 

3672 

LOMPSW 

4503 

GOSUB 

0415 

JMSSI 

0306 

K 1 000 

4327 

LDHR 

2705 

GR 

6537 

JMSTAD 

1535 

K 1 1 0 

2236 

ldhrst 

0157 

GS 

2335 

JMSUSR 

1557 

K 1400 

4326 

LOHSWT 

2704 

GSP 

0067 

JNEG 

3466 

K 16 

4721 

LEN 

3414 

GSSTOP 

0476 

JSL 

2627 

K20 

3272 

LEV 

5477 

GSTCK 

0453 

JU9NEG 

3464 

K200 

0077 

lflush 

6402 

GSTCKT 

2341 

KC 

3752 

K2000 

6643 

LINEHI 

0065 

GTFLG 

4200 

KC240 

1151 

K212L 

2356 

LINE1 

1140 

GT1FLG 

4263 

KEX 

3742 

K215 

0054 

LINELO 

0066 

HOOKL 

4007 

KFQl 

5447 

K232 

3530 

LK7607 

3746 

WORD 

0045 

KKM10 

3676 

K240 

3204 

LM 

6360 

IA 

1465 

KKM12 

5775 

K260 

4065 

IMAKE 

4067 

IDLE 

2304 

KKI2 

5313 

K277 

6453 

LMAKEL 

3741 

IF 

4424 

KK13 

4330 

K300 

6673 

LN2 

4470 

IGS 

3707 

KK2000 

4161 

K334 

6473 

LN20V2 

4410 

ILOOP 

0212 

KK40 

3271 

K4 

6520 

LOADOF 

3165 

ILOOPF 

0240 

KK7 

4730 

K40 

0767 

LOG 

4263 

ILOOPL 

0113 

KK7800 

1253 

K4207K 

4363 

LOGO 1 

4454 

IN 

4032 

KL7600 

3745 

K4210 

3360 

L0GC3 

4457 

INPTCL 

3500 

KME 

5306 

K5252 

6452 

L0GC5 

4462 

INPUT 

5347 

KM 1 0 

0250 

K5700 

3674 

L0G2E 

4405 

INSAV 

0064 

KM12 

5135 

K6 

4740 

LOOP 

5052 

INSC 

3413 

KMI3 

5776 

K6000 

3772 

LOP01 

3722 

INT 

3400 

KM144 

5134 

K6213K 

4364 

LOP02 

3746 

INTERS 

1152 

KM20 

4731 

K6222 

4567 

L0P1 

6075 

INTL 

0114 

KM22 

3777 

K6223 

4565 

L0P2 

6037 

INTPC 

0302 

KM4 

2031 

K 7000 

4135 

LORO 

0046 

INTPCK 

1175 

KM40 

0106 

K7200 

4142 

LRESET 

0567 

INTPCL 

0444 

KM400 

0103 

K73 

4563 

LRSCOM 

2655 

INTPLK 

6574 

KM7 

4732 

K7400 

0103 

LSUB1I 

1403 

INTPOS 

3420 

KNQP 

4012 

K7435 

1665 

LSUB2I 

1413 

INTRB 

1372 

KNT 

4737 

K7437 

3370 

LSI! 

1400 

10 

6674 

KNTP 

5154 

K7477 

0105 

LS2I 

1410 

IOLK 

6451 

KSFA 

6413 

K7506 

5346 

LTRPRT 

4302 

IQTAB 

2035 

KUPARO 

3751 

K7554 

0431 

L0037 

4137 

IOTPTR 

2034 

K0 

4412 

K7577K 

4365 

L7466 

3667 

IOUT 

5360 

K0003 

3533 

K7600 

0432 

L7600 

0366 

ISZAC2 

6310 

K0004 

2365 

K7607K 

3703 

L7600K 

4370 

ISZFGT 

6275 

K0007C 

3675 

K7 700 

0104 

L7605K 

3670 

JEOFI 

0445 

K00I0 

0073 

K 7737 

0770 

L7605P 

4371 

JPAIL 

0413 

K0017 

0074 

K 7 760 

3666 

L7607 

1527 

JPAILL 

2053 

K0037 

0742 

K7773K 

4366 

L7620 

3665 

JFOR 

2042 

K0037C 

3671 

LASTB 

3332 

L7621 

3667 

JFORL 

0443 

K0037L 

1755 

LDH 

0131 

L7642 

4566 

JMPFIL 

1450 

K0057 

3673 

LONG 

2105 

L7644 

3664 

JMPI 

0247 

K0077 

0075 

LDHCDF 

2237 

L7666 

3670 

JMPISA 

0736 

K0100 

0076 

LOHCDL 

4506 

L7721 

4570 

JMPISN 

4012 

K0177 

1776 

LDNOCK 

0573 

L7727 

4571 

JMPI 2 

0746 

K0200 

0077 

LOHDF 

2647 

L7746 

0357 

JMPI3 

1205 

K0210 

3205 

LDHIN1 

2676 

MAKEO 

4061 

JMPI6 

1604 

K0300 

4066 

LOHINL 

0127 

MASKL 

3427 

JMSI 

0246 

K0340 

0100 

LDHt 

2646 

MBENQ 

1031 
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MCC 

3750 

NAMES 

4416 

OPSR 

6034 

PUTCH 

3253 

MCDFi 

6642 

NAMEGL 

4141 

OPX 

0047 

putcml 

0112 

MCOUON 

4400 

NCG 

4450 

OTRAPA 

4532 

PUTCNR 

1010 

MCR 

6447 

NCGS 

4464 

OUT 

5144 

PWFECH 

0200 

MCRMAL 

3456 

NCHK 

4113 

OUTOG 

5150 

PWFECL 

0120 

MCSPE 

4401 

nchkl 

4262 

OUTOGP 

4720 

PZR 

5015 

MCTRLC 

1032 

NEWCDF 

6301 

OVAOO 

1512 

PiCOF 

1240 

MCTRLU 

6446 

NEXRCK 

4274 

OVONE 

1516 

PICDFt 

1245 

MCTRLZ 

3103 

NEXREC 

3302 

OVERIA 

3400 

P 1 SWAP 

0156 

MDECPT 

1375 

NEXREL 

0152 

OVML 

0346 

P2C0F 

1243 

MONE 

3227 

NFL AG 

4120 

OVRLAY 

1530 

P2C0FL 

4563 

MDONE 

5627 

NFLGST 

4111 

00 

6354 

P2C0FI 

1247 

MOSET 

5450 

NGT 

4257 

PA 

4415 

P2CDL1 

4564 

MDSETK 

5774 

NHNDLE 

4103 

PACKCH 

2735 

P2SWAL 

3744 

MOSETP 

5445 

NHNOLL 

4261 

PACKL 

0145 

P200 

5211 

MOV 

5307 

NOCC 

1044 

PATCHF 

5364 

QUA02 

4017 

MD1 

5452 

NOCTC 

3725 

PATCHP 

0155 

QU AOS 

4022 

MD1P 

5443 

NOGZ 

3417 

PBACK 

6467 

QUA04 

4024 

MFATAL 

4155 

NOR 1 

6111 

PDNE 

3217 

ROUST 

6556 

MINUS 

5363 

N0P2 

6053 

POP 

5001 

RE 

3010 

MINUSP 

3461 

nonmlp 

6225 

PINFO 

0361 

reaofl 

3000 

MINUS4 

0360 

NOTE 

4743 

PI0V2 

4402 

REAOFW 

3147 

MINA 

4367 

NTT V 

3135 

PLUS 

5362 

RE AO I 

3105 

MKH 

2727 

NULLST 

4365 

PNT 

1770 

RECP2 

1066 

MLF 

2456 

NUM 

4113 

POLVNL 

4304 

RELCOM 

3512 

MML 

4501 

NUMCQL 

6361 

POLYSN 

4026 

RESDLS 

2567 

MMM4 

4415 

NUMCOM 

0005 

PQPG 

6533 

RESTI 

1650 

MMl 1 0 

2513 

Ni 

4403 

POS 

4400 

RESTIL 

2577 

MM260 

3746 

N1A 

4542 

PQSITN 

4501 

RESTOR 

2572 

MM4 

3542 

. N2 

4404 

PQSPTA 

2560 

retmol 

3665 

MODESW 

0063 

N3 

4405 

POSSET 

4424 

RETMOO 

3526 

MOFTEN 

6366 

N3A 

4402 

POSTP 

2561 

RETPOS 

4471 

MRLP 

5653 

N4 

4406 

PQVTAB 

0362 

RETRNI 

6550 

MPUP1 

5654 

N5 

4407 

PR 

5016 

RETRNO 

3571 

MPLP2 

5666 

N6 

4410 

PRDCP 

4776 

RETRNI 

3610 

MPLUS 

3251 

N6A 

4543 

PROCPP 

5143 

RET0 

3565 

MPY 

2260 

N7666 

3613 

PREST 

3715 

rightl 

2665 

mpyunk 

0121 

QAQD 

6157 

PRINT 

0110 

RIGHTS 

2633 

MP12L 

5701 

0 ADOP 

5141 

PRNTX 

5160 

RND 

4543 

MP12LP 

2265 

OAT ADI 

1526 

PRNTXP 

4723 

KONLY 

3314 

MP24 

5643 

OCOF 

2146 

PRNTX1 

5164 

RSEEO 

234b 

MRU80T 

3301 

OE 

1513 

PRZRO 

5172 

RSEEOL 

4562 

MSPACE 

1216 

ONE 

3474 

PRZROP 

4724 

RTN2 

5371 

MSTTOP 

6547 

ONEHAF 

4465 

PS 

5023 

RTZRQ 

5620 

Ml 

4727 

ONERET 

4473 

P5FLAG 

0031 

RWONC 

3312 

MIR 

3470 

ONE 1 

4476 

PSSTRT 

0026 

SAC 

0321 

Ml 10 

3252 

openaf 

4001 

pstchk 

3476 

SACCHK 

2132 

MIS 

4530 

openav 

4000 

PSWAP 

1230 

SACEM 

2216 

Ml 4 

0107 

OPENNF 

4004 

PSNAP2 

4334 

SACL 

3421 

M2 15 

0055 

QPENNV 

4003 

PSWP2P 

4544 

SACPTR 

0111 

M240 

5361 

OPERI 

1200 

PS 1L 

0363 

SAC40C 

2116 

M260 

1374 

OPH 

0050 

PS2L 

0364 

SAP 

0735 

M4 

2566 

OPL 

0051 

PTRBMP 

2166 

SAFINO 

1747 

M50 

1033 

OPNEG 

6146 

PUSHG 

2326 

SARRAY 

0724 

MS 

4413 

OPNEGP 

5502 

PUSHGL 

0442 

SASTRT 

0024 
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sc 

2232 

starts 

4305 

TEMP 12 

2311 

WE 

3032 

SCAUDP 

0317 

START! 

0321 

TEMPI 3 

2260 

WORO0 

0163 

SCALOU 

1177 

START3 

1152 

TEMP 14 

0003 

WORD0A 

2032 

SCASE 

0243 

START4 

6600 

TEMP15 

0004 

WOROl 

0164 

SCOP 

1737 

STB 

3642 

TEMPI 7 

3023 

WORD! A 

2033 

SCOMP 

2061 

STCGTJ 

3501 

TEMP18 

3016 

WOROl 0 

0173 

3C0NTU 

4462 

STCOM 

1700 

TEMPI 9 

3371 

WORD 11 

0174 

SCON1 

2200 

STC40C 

2134 

TEMP2 

0007 

WOROl 2 

0175 

SCSTRT 

0021 

8T0F 

1701 

TEMP21 

2636 

WOROl 3 

0176 

SDIS 

0276 

STOFL 

1174 

TEMP24 

0531 

WORD 1 4 

0177 

SE 

4706 

stfilk 

0743 

TEMP3 

0042 

W0RD2 

0165 

SES 

4266 

stfind 

1666 

TEMP30 

0771 

W0R03 

0166 

segcml 

4370 

3TFINK 

4504 

TEMP4 

0043 

WORD 4 

0167 

SE6CQM 

2222 

STFINL 

0305 

TEMPS 

0047 

WORDS 

0170 

SEP 

5157 

STM 

0130 

TEMP6 

0050 

W0R06 

0171 

SEP1 

0261 

STHCQF 

0536 

TEMPT 

0051 

W0R07 

0172 

8ETP 

2054 

STMCOL 

2457 

TEN 

5317 

WRBLK 

3350 

3E1 

4707 

sthdf 

2603 

TM 

0043 

WRBL.KK 

3532 

SPN 

2000 

STHDKK 

0775 

TMPY 

6353 

WRBLKL 

1664 

SFNI.P 

2023 

STHINI 

2636 

TM3 

5155 

WRITE! 

3200 

S6N 

3632 

STMINL 

0126 

TM3PT 

5304 

WRITFL 

3023 

SHUFT 

5635 

3THL 

2600 

TOFF 

4010 

WRITFW 

0125 

SIGNF 

5300 

8TMR 

2645 

TOUT 

3276 

W0PTR 

3535 

SIN 

4000 

STMRST 

0160 

TOYPI 

4160 

W0PTRA 

3534 

SINAI 

4366 

STHSWT 

2644 

TP 

5314 

XOGET 

4507 

8INA3 

4371 

STOP I 

4060 

TPH 

4136 

XORITE 

4523 

SINA5 

4374 

STR 

3422 

TPREL 

3521 

XICOM 

4515 

8INA7 

4377 

STRCNT 

0071 

TPRINT 

3677 

XPRINT 

1034 

SL 

0525 

8TRLEN 

0032 

TP 1 

5315 

XPUT 

0122 

SLOAD 

3150 

STRMAX 

0070 

TRACE 

4000 

XPUTCH 

1000 

SLOOP 

3713 

STRN6A 

1532 

TRHOOK 

1144 

XPUT 1 

1002 

8L0VEL 

1767 

STRPTR 

0072 

TRREST 

4006 

XR0 

0010 

SLOVER 

2547 

STSLP 

3440 

TTEST 

3143 

XR1 

0011 

SLRCQM 

2614 

STSTRT 

0023 

TTYBUF 

6600 

XR2 

0012 

SMODE 

0271 

su 

0623 

TTYORI 

6400 

XR3 

0013 

SNEO 

2127 

SUBERL 

1756 

TTYENO 

6660 

XR4 

0014 

SNEQ1 

2126 

SUB0 

6125 

TTYF 

6677 

XR5 

0015 

SPFUNC 

1600 

SUB0P 

5411 

TTYIN 

6410 

ZCNT 

3773 

SPIN 

6521 

SUCJML 

2052 

UNPACK 

3047 

ZEXP 

6341 

SPINNR 

0017 

SUCJMP 

0421 

UNSFIX 

1615 

ZMINY 

4331 

S0RP5 

4451 

SW 

3262 

UNSLP 

1642 

ZR 

1342 

SR 

3130 

SWCLP 

2477 

UNSOUT 

1646 

ZRCONT 

1352 

SRCLP 

4445 

5WITCC 

0042 

USE 

0574 

ZROFF 

1334 

SREAO 

2417 

SWIT1 

0054 

USECON 

0006 

ZRORET 

4467 

SRESET 

0771 

SWIT2 

0055 

USELGG 

3613 



SRPIN 

2447 

SWRITE 

2460 

USSLQL 

3567 



SRLIST 

2400 

si 

0033 

USR 

0077 



SRLOOP 

2411 

S2 

0034 

USRA 

1534 



SSAD 

4525 

TAB 

1757 

U123C 

3056 



SSLOOP 

0514 

TAOTAB 

1536 

VAL 

3462 



SSLP 

3160 

TOFIXL 

4362 

VALCNT 

3422 



SSHOOE 

2323 

TOONE 

3726 

VALGET 

3503 



SSTEX 

0527 

TEMPI 

0040 

VAULK 

0154 



SSTORE 

0477 

TEMP10 

0061 

VR 

3003 



ST 

2444 

TEMPI 1 

0062 

WDQNE 

3246 






